$p->links 
Returns a list of all links found in the document. The
returned values will be anonymous arrays with the 
follwing [sic] elements: 
  [$tag, $attr => $url1, $attr2 => $url2,...]


##</code><code>##

[$tag, {$attr => $url1, $attr2 => $url2,...}]


##</code><code>##

$p = HTML::LinkExtor->new(\&cb, "http://www.perl.org/");
 sub cb {
     my($tag, %links) = @_;
     print "$tag @{[%links]}\n";
 }

##</code><code>##

@{[%links]}


##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;