my $string = '<a href="page.cfm?objectid=11933900&method=full&siteid=50144"> Costly false alarms </a> <a href="page.cfm?objectid=11933890&method=full&siteid=50144"> Mindless yobs terrorise OAPs </a> <a href="page.cfm?objectid=11933879&method=full&siteid=50144"> Road deaths </a> <a href="page.cfm?objectid=11933842&method=full&siteid=50144"> Twisted porn pervert caged for life </a> <a href="page.cfm?objectid=11933800&method=full&siteid=50144"> Greenbelt homes plan appeal thrown out </a>';

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

print "$_\n" foreach @matches;

##</code><code>##

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

foreach my $key (keys %matches) {

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

}