#!/usr/bin/perl
for (@ARGV) { s@\.[^\.]*$@@; print "$_\n"; }