Perl5 string transliteration (method and operator)

I would like to make it more Perl6-like, but this is a start.