#!/usr/local/bin/perl
$file =  $ARGV[0];


while(@ARGV) {
    $infile = shift;
#    print $infile,"\n";


    ($in, $foo, $outfile) = split(/\.pcd/,  $infile );


    print "Doing $infile ---> $in$foo" , "\n";
    system "mv $infile  $in$foo";

}