#!/usr/bin/perl -w
@name=`ls -1`;
foreach $a (@name) {
    @a=split("\n",$a);
    #print "1.$a[0] \n";
    ($c,@b)=split('-', $a[0]);
    $d=join('-',@b);
    #print "$d\n";
    system("mv $a[0] $d");
    }