print(unpack('H*', $/), "\n"); # 0a Just LF my $str = ; print(unpack('H*', $str), "\n"); # 746573740a No CR chomp($str); print(unpack('H*', $str), "\n"); # 74657374 LF chomped. __DATA__ test