> > じゃあ「先頭に"@"を含んで」「"html"を含まない」行だけをとりだす方法おしえれ
> while(<STDIN>){
>     if($_ =~ /^@/){
>         until($_ =~ /html/){
>             $result .= $_;
>         }
>     }
> }


参考：2001/10/31(水)17時43分59秒