open(FILE,$template);
foreach (<FILE>) {

     if ($_ =~ m/MY_MATCH/) {
          &do_something;
     }
     else {
          print $_;
     }

}
close(FILE);