> じゃあ「先頭に"@"を含んで」「"html"を含まない」行だけをとりだす方法おしえれ

while(<STDIN>){
    if($_ =~ /^@/){
        if(!$_ =~ /html/){
            $result .= $_;
        }
    }
}

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