$str =~ s/(?