[Perl][RegExp]Не происходит выделение переменной $1

perl, regexp

Вот эта программа выделяет гиперссылки из документа и печатает значение атрибута href:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $page=get('http://wilci.narod.ru');
my @links=($page=~/<\s*?a\s*?href=(?:"|'|).*?(?:"|'|)\s*?.*?>/gi);
foreach my $linkget(@links){
$linkget=~/<\s*?a\s*?href=(?:"|'|)(.*?)(?:"|'|)\s*?.*?>/i;
print $1}
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Гиперссылки находятся все. Почему печатается значение атрибута только первой гиперссылки? Находить значение атрибута нужно только с помощью этого регулярного выражения. Как сделать чтобы выводились на печать значения атрибута всех гиперссылок? Заранее благодарен.

Ссылка

← CAD интерфейс

[qt4][layouts]Туплю →

#!/usr/bin/perl -w 
use strict; 
use LWP::Simple qw(get); 


my $page=get('http://wilci.narod.ru'); 
my @lines=split(/\n/,$page);

foreach (@lines)
{
    if(m/href=('|")?(.*?)('|")?(\s|>)/i)
    {
        print $2, "\n";
    }
}

iSage ★★★★
(16.08.09 01:29:25 MSK)

Ответ на: комментарий от iSage 16.08.09 01:29:25 MSK

Большое спасибо iSage. Но ваш пример не выделяет гиперссылки расположенные в одной строке.

Хотелось бы узнать причины по которым не работает мой исходник.

Wilci
(16.08.09 02:08:40 MSK) автор топика

Ссылка

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $page=get('http://wilci.narod.ru');
my @links=($page=~/<\s*?a\s*?href=(?:"|'|).*?(?:"|'|)\s*?.*?>/gi);
foreach my $linkget(@links){
    $linkget=~/<\s*?a\s*?href=(?:"|'|)([^"' ]*)(?:"|'|)\s*?.*?>/i;
    print "$1\n";}

josephson ★★
(16.08.09 02:27:21 MSK)