% perl -de 1
  DB<1> $s = 'Hello.1.txt'
  DB<2> $s =~ s/\.(?=txt$)//g   # in this case the /g is superfluous
  DB<3> p $s
Hello.1txt