use strict; use warnings; use HTML::TreeBuilder; my $str = <<'STR'; my page> STR my $tree = HTML::TreeBuilder->new; $tree->parse ($str); print $_->attr ('href') . "\n" for $tree->find ('a');
dxpwd jimeth jone28 25528