$print =~ s/([b-z]|[A-Z]):/\1/g;
$print =~ s/a |V /A /g;
$print =~ s/a: /A: /g;
$print =~ s/2:/2 %/g;
$print =~ s/9|3:/&/g;
$print =~ s/([a,e,O])I/\1j/g;
$print =~ tr/QRC@6{/Orx**E/;
...