if(($sequence=~/ABC/)  ?????