複数回のパターンマッチ

どうしても複数回のパターンマッチで値が取得できません。
すべてを配列などに代入したのですがどうすればよいのでしょうか？

下記のような感じです。

$str = <<EOF
<a>dasfdaf</a><br>
asfdafdsa
sfatyuytu
<a>jkytr</a><br>
gjetjt
tyurtyu
EOF
;

if ($str =~ /<a>(.*)<\/a><br>/g) {
@list = $1;
}

よろしくお願い致します。

No.2 ベストアンサー 回答者： kumoz 回答日時： 2006/09/29 12:18

次のような方法で、１度に処理することができます。

@list = ($str = <<EOF) =~ /<a>(.*)<\/a><br>/g; 　 # ; は EOF の次の行でも可
・・・
EOF

または、

@list = ($str = <<EOF)
・・・
EOF
=~ /<a>(.*)<\/a><br>/g;

No.1 回答者： Werner 回答日時： 2006/09/28 22:30

@list = ($str =~ /<a>(.*)<\/a><br>/g);

もしくは

while ($str =~ /<a>(.*)<\/a><br>/g) {
push (@list, $1);
}