while( $html =~ m/<a href=\"(.*?)\"/g ) 
{    
  print "$1\n";  
}