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