$str =~ s/((?