#!/usr/bin/perl 
$count1 = 0; 
open (FILE, "INPUT") || die "cannot open $!\n"; 
while ($line = <FILE>){ 

if(($line=~m/(aaggt){2}/ig)&&($'=~m/([atgcn]{100,})/i)) { 
$count1 ++ ; 
print " " ,$1, "\t"; 
print "count1 \t " ,$count1 , "\n" ; 
} 

}