Help for this page
foreach my $chars (split(//,$input_string)) { $hexchars .= sprintf "%x", ord($chars); }
$ perl -le ' $str = qq{test\r\n}; ... print $right;' 74657374da 746573740d0a