my %matches = $string =~ m!(<a[^>]*>)(.+?</a[^>]*>)!ig;

foreach my $key (keys %matches) {

    print "$key\n";
    print "$matches{$key}\n\n";

}