my $string = "aabbccdd";
if (my @matches = $string =~ /(aa)..(cc)../)
{
    print "@matches\n";
    print "$matches[0] ... $matches[1]\n";
}