#!perl -w use strict; use WWW::Mechanize::Firefox; my $mech = WWW::Mechanize::Firefox->new(); $mech->update_html(<

Test

Google Say Hello HTML my @links = $mech->find_all_links_dom(url_regex => 'asdf.html'); foreach my $link (@links) { #print $link->{onclick}; print $link->{click}; };