$seq=~ m/.*ATGAA.*?TGCCG.*/;  
$match=$_;