while ( $linea2 = ) { if ( $linea2 =~ /CTT TGA/ ) { print FH3 "Tenemos Alanina\n"; } }