$str =~ s/'/!/g;