$filename = "first.second.third.ext";
$filename =~ s/(.+)?\..+[^\.]/$1/g;
print "$filename";

C:\test>perl test.pl
first.second.third
C:\test>

__________________________

Съдържаниет е скрито
Влезте за да го видите