Select Code to Download

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