1
2
3
4
5
6
7
8
9

my $satz_bau = 0;
my $string  = 'dieser <auf tolle zu> satz soll <auf schnell zu> bearbeitet werden.';
if($satz_bau == 0){
          $string =~ s/<.+?>//gi;
}else{
          $string =~ s/<auf (.+?) zu>/$1/gi;
}

print $satz_bau;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]