my $str = qq(<div class="rightbox8"> <p style="text-align: center"><st
+rong><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";
}
[download]