if(($sequence=~/ABC/) ????? #### $sequence= "ABC"; open (OUT, ">OUTFILE"); if($sequence=~/ABC/) { print OUT "blas\n"; } close (OUT);