perl -wle 'my $str="foo.bar.lulz.exe"; my @res=split /\./, $str; print @res[0,-1]'