Perl5 string transliteration (method and operator)

Second attempt