Help for this page
my %translations; my %scrubbed; ... my $re = qr/$pat/; $file =~ s/($re)/$translations{$1}/g;
my $output = ''; my %translations; ... $output .= $line; } }