#! /usr/bin/perl -w

while (<>)
{
@data = split (/\t/);
chomp @data;

print "mv ";

for ($i = 0; $i <= $#data; $i++ )  
	{
		print "$data[$i].CEL ";
	}
print "\n";
}
