$string =~ s/(\d)-([A-Z])/$1$2/ig; # my old way $string =~ s/(?<=\d)-(?=[A-Z])//ig; # my new way