This might work for u

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

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