Select Code to Download

#/usr/bin/perl -w
use strict;
...
$text =~ s/$inpattern/$outpattern/gee;

print "$text\n";