#!/usr/bin/perl 
use warnings;
use strict;

my $str = 'Ton&#x69';
print "$str\n";
$str =~ tr#A-Za-z0-9+/##cd;  # remove non-base64 chars
print "$str\n";
exit;