my $str = qq(<div class="rightbox8"> <p style="text-align: center"><strong><a href="http://www.a_site.com/pubs.asp?ID=999582">Please click here to view</a></strong></p>);

if ($str =~ /href="([^"]+)"/)
{
    print "href=$1\n";
}