Perlコーディング初心者質問スレ Part 61

[0828 nobodyさん 2010/12/09(木) 18:45:33 ID:???]

while ($html =~ s/([-.\w]+@[-.\w])//){
push(@list, $1);
}

$html を後々使うなら

my $html_bak = $html;
みたいにバックアップを。