Select Code to Download

#!/usr/bin/perl -l

...

print $& if /^<a href.*>[^\z]/;
print $& if /^<a href.*>(?=[^\z])/;

<a href= ?a=500011&w=2&r=1 >j
<a href= ?a=500011&w=2&r=1 >

/^<a [^>]+>([^<]+)/