Select Code to Download

foreach my $chars (split(//,$input_string)) {
    $hexchars .= sprintf "%x", ord($chars);
}

$ perl -le '
$str = qq{test\r\n};
...
print $right;'
74657374da
746573740d0a