#!/usr/local/bin/perl5 -w
#
foreach $i (@ARGV) {
	$copy = $i;
	next if $copy =~ m%^,%;
	next unless $copy =~ m%\d+%;
	$com= "mv ,".$copy.' '.$copy;
	system($com);
}
1;
