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

むげんるーぷ

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