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

顔にみえた(;´Д`)

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