open IN, 'sample.fa'|| die("Could not open file!");
open OUT, '>modsample.fa'|| die("Could not open file!");
while ($line = <IN>)
{
if ($line=~m/mamma/&&$line=~m/mia/) {print OUT "$line";}
else {print ".";} #just to look at something while it works 
}