Select Code to Download

use warnings;
use strict;
...
$text =~ s/$inpattern/$outpattern/gee;

print "$text\n";