open FILES, "filelist.txt";

while (<FILES>){

    chomp;
    my $syscmd="mv $_ ";

    unless(/^([a-z]+)([0-9]+)([a-z_]*)\.e/){
	print "$_ didn't match\n";
	next;
    }

    my $library=$1;
    my $clone=$2;
    my $version=$3;
    if($3){
	$version=$3;
    }
    else{
	$version='0';
    }

    $version=~tr/_//d;
    $version=~tr/[a-h]/[0-6]/;

    my $new_name=$library.'-1-'.$clone.'.e.'.$version;

    $syscmd.=$new_name;

    system ($syscmd);

}

close FILES;