sub adedtear{

 open(my$prfore, "<", "../editsite2/preview.html") or die "couldn't open preview for read in sub adedtear: $!\n";

  LINE: while(<$prfore>){

     if(/<\!--text[se]\d{3}-->/){
      $flag=1;
      next LINE;
     }
 
     if($flag){
        unless(/<\!--texte/){
            s/\D{5}\s+$/\n/;  
            $linevalis .= $_;
        }
        else{$flag=0;} 
     }
   }
       
close $prfore or die "couldn't close prfore: $!\n";

print $bar $foo->textarea({-id=>'t001', -name=>'none', -value=>"\n$linevalis"}) or die "cant print linevalis into textarea cgi: $!\n";&n;
}