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

You could write that tr expression more simply as:

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