Perl - Capturar enlaces HREF

Buenos días,

Estoy trabajando en una función que, usando expresiones regulares, capture los enlaces (HREF) de un texto.

Alguien me podría ayudar a simplificarla?
gracias de antemano!!

sub getLinks
{
# crear hash
%hash = ();

for(@_){
while(/(<[^aA][^>]*>|[^<>]+)*<(A|a) (\w+=\"[^\"-]+\" )*((HREF|href)=\"([^\"]+)\")( [\w:;\(\)=\'\"-]*)*>(<[^aA][^>]*>|[^<>]+)*/g){
if ((! exists $hash{$6})&&($6!~/#\w+/)){
$hash{$6}= 1;
}
}<a href="http://XXX">
}
%hash;
}

sub getLinks {
my @urls = @_;
my %hash;

foreach my $url ( @urls ) {
while ( $url =~ /href="(.+?)"/gi ) {
$hash{ $1 } = 1 unless $1 =~ /#/;
}
}

return %hash;
}

En el foro de http://perlenespanol.baboonsoftware.com/foro/index.php tendrás mejor soporte que aquí...

muchas gracias!!!