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