Select Code to Download

 
open IN, 'sample.fa'|| die("Could not open file!");
open OUT, '>modsample.fa'|| die("Could not open file!");
...
else {print ".";} #just to look at something while it works 
}

open IN, 'sample.fa'|| die("Could not open file!");
open OUT, '>modsample.fa'|| die("Could not open file!");
...
if ($nextline=~m/mamma/&&$line=~m/mia/) {print OUT "$line$nextline";}
else {print ".";}
}