$string =~ s/\.'\)/)/g;