my $string = 'foo.bar.txt'; $string =~ s/\.\w{3}$//;