Help for this page

Select Code to Download

Select or download this

use strict;

...
    $_ = join "", map { sprintf("%2.2x",ord($_)) } split //;
    print OUT $_, $/;
}

Select or download this

    my $outstr = "";
    $outstr .= sprintf("%2.2x",ord($_)) for (split //);
    print $outstr, $/;