Select Code to Download

#!/usr/bin/env perl
use 5.010; use warnings; use strict;
...
    s/(\w+)/$h{$1}?"${1}_$h{$1}":$1/ge;
    print;
}

perl -e '$f1=`cat file1`;open $f2,"<","file2";while(<$f2>){chomp;($k,$
+v)=split "_";$f1=~s/$k/${k}_$v/g;}print $f1;'