$_ = '<a href= ?a=500011&w=2&r=1 >joe@blow.com</a>'

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