#!/usr/bin/perl
while(<>)
{       chop;   
        @name = split(/\./);
        $old = "$name[0].$name[1].$name[2]";
        $new = "$name[0].$name[2]";
        # print "mv $old $new\n";
        rename($old,$new);
}
