if( $s =~ m/^(.*?)anchor/ ){ my $bad = $1; $s =~ s/$bad//; }