Select Code to Download

#!/usr/bin/perl
use strict;
...
    $line =~ s/($search)/$1 $subst{$1}/g;
    print $out_fh $line;
}