# in sub _uuencode_chunk:
my $encoded_string = pack("u", $string);           # unix uuencode
# in sub _uudecode_chunk:
my $ret = unpack("u", $string);