http://www.perlmonks.org?node_id=1051348


in reply to Trouble with Transliterate Function

substr( $mask_input, $lastEnd, $start ) =~ tr[\x00-\xff][N];

You could write that tr expression more simply as:

substr( $mask_input, $lastEnd, $start ) =~ tr//N/c;