my @results = $a =~ m#<a.+/a>#g;
local $" = "\n";
print @results;