while($google_results =~ m|<p\sclass=g><a href=(http://www\..+)\sonmousedown|gs) 
   {
      push (@links_found, $1);
   }

##</code><code>##

<p class=g><a href=http://www.ets.org/toefl/ onmousedown="return clk(this,'res',1)">Welcome to TOEFL: The <b>Test</b> of English as a Foreign Language</a><br><font size=-1>Information about the TOEFL tests and services are available online. Try the<br>
TOEFL practice questions.<br><font color=#008000>www.ets.org/toefl/ -  18k - </font><nobr>  <a class=fl href="http://64.233.161.104/search?q=cache:Gq-KV5uuj6YJ:www.ets.org/toefl/+test&hl=en">Cached</a> - <a class=fl href="/search?hl=en&lr=&safe=off&q=related:www.ets.org/toefl/">Similar&nbsp;pages</a></nobr></font> <blockquote class=g><p class=g><a href=http://www.ets.org/testcoll/ onmousedown="return clk(this,'res',2)">The ETS <b>Test</b> Collection includes an extensive library of 20000 <b>...</b></a><br><font size=-1>The ETS <b>Test</b> Collection includes an extensive library of 20000 tests and other<br>
measurement devices from the early 1900s to the present.&lt;/<br><font color=#008000>www.ets.org/<b>test</b>coll/ -  11k - </font><nobr>  <a class=fl href="http://64.233.161.104/search?q=cache:mY1iJUWuYoEJ:www.ets.org/testcoll/+test&hl=en">Cached</a> - <a class=fl href="/search?hl=en&lr=&safe=off&q=related:www.ets.org/testcoll/">Similar&nbsp;pages</a></nobr></font> </blockquote><p class=g><a href=http://www.test.com/ onmousedown="return clk(this,'res',3)">