#!/usr/bin/perl -l

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

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