$var = qq(blahdyblah<b>[PDF]</b><a href="http://www.stat.yale.edu/~jtc5/GeneticNetworksGroup/GibsonAndBruck2000.pdf" onmousedown="new Image().src='/scholar_url?sa=T&url=http://www.stat.yale.edu/~jtc5/GeneticNetworksGroup/GibsonAndBruck2000.pdf';">);
$var =~ m{<b>\[PDF\]</b>.*<a href="(.*)" onmousedown="(.*)"};
print "$1\n$2\n";