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