Select Code to Download

sub ords{ sprintf "%02x " x length($_[0]), unpack 'C*', $_[0]; }

{
    my $t = '%02x ' x 1000; 
...
        sprintf substr( $t, 0, length $_[0]*5 ), unpack 'C*', $_[0]; 
    }
}