my $string = ''; $string =~ s/(]*?)scope="local"/$1/g; print "$string\n"; __END__