use MIME::Base64;
$weird = chr(0x2a);
$encoded = encode_base64($weird);
#$decoded = decode_base64($encoded);

$string = "Weird char: $encoded.\n";