Help for this page
use strict; use warnings;
my %table = ( "\x00" => "\x17", ... # and then substitute: $str =~ s/($re)/$table{$1}/g