Select Code to Download

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

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

http://www.example.com/'>Example 1</a>
<a href='http://www.example.net/

http://www.example.net/