Регулярные выражения , Perl

[nike]

Есть текст.
В нем

...
<a href="http://forum.sources.ru">click me</a>
...

Мне нужно найти текст

<a href=

(это просто )

$text =~ m/<a href=/i

и вытащить то, что находится за ним в кавычках, т.е. саму ссылку.

[Mixxx]

Ну тут ничего сложного я не вижу, просто нужно воспользоваться сохраняющими круглыми скобками:

if($text =~ m/<a href="([^"]*)"/i)
{
   print $1;
}

[nike]

Mixxx, ты меня спас.