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