Re: Finding patterns

[snape]

This might work for u

if ($seq =~ m/ATGAA(.*)TGCCG/){
     print $1;
}

Also, the following link1 and link2 talks about the concept of $1 and use of regular expression