$text = "<a href='http://www.example.com/'>Example 1</a>\n<a href='http://www.example.net/' target='_blank'>Example 2</a>";

my ($a) = $text =~ /<a href='(.+?)' target='_blank'>/s;
print "$a\n";