my $OldVerPat = quotemeta($OldVer); s/$OldVerPat/$NewVer/ #### s/\Q$OldVer\E/$NewVer/ #### s/\Q$OldVer\E/$NewVer/