Implement tr

For reference: https://rt.perl.org/Public/Bug/Display.html?id=62064