sub adedtear{

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

 while(my $line=<$prfore>){
  
     if($line =~ m/<\!--texts001-->/){ 
     $flag=1;     
     }
   
   if($flag == 1){
     
       if($line =~ m/<\!--text[s|e]/){
            $line=$line;
       }
       else{            
	   $line =~ s/<br\/>//;
             $linevalis .= $line;                   
             $line = "";
       }
   }

    if($line =~ m/<\!--texte/){
       $flag=2;
    }
 }

close $prfore or die "couldn't close prfore: $!\n";

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

##</code><code>##

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;
}