Select Code to Download

    return &str2ascii( &binary2str(@cblocks) );

use Crypt::Tea qw(ascii2str);

...
my $str = ascii2str($encrypted_ascii);
# now convert to hex:
my $hex = unpack "H*", $str;