while(<>)
{
	chomp $_;
	$s=lc($_);

	if($_ =~ /-4-SS/) 
	{
		$s=substr($_,5);
		print("mv $_ $s\n");
		system("mv $_ $s");
	}
	
	if($_ =~ /SS/)
	{
		$s =~ s/\s//g;
	 	$s =~ s/ss/ss-/g;
		$s =~ s/-t//g;
		$s =~ s/t//g;
		$s =~ s/k//g;
		$s =~ s/m13f/f/g;
		$s =~ s/m13r/r/g;
		$s =~ s/m13/?/g;
        	@elements=split(/-/,$s);

		$s=$elements[0]."_";
		$s=$s.substr($elements[2],0,4)."_";
		
		$s=$s.substr($elements[3],0,1);
		if(length($elements[3])==3) { $s=$s.substr($elements[3],1)."\."; }
		else { $s=$s.substr($elements[3],2)."\."; }

		if($elements[4]  eq "s") { $s=$s."s1";}
		elsif ($elements[4]  eq "f") { $s=$s."b1";}
		elsif ($elements[4]  eq "r") { $s=$s."g1";}
		elsif ($elements[4]  eq "?") { $s=$s."g1";}
		else {  print("** $_\n"); }

		if($files{$s}>0) 
		{ 
			chop $s;
			$s=$s."2";

			if($files{$s}>0)  
			{
				chop $s;
                        	$s=$s."3";
			}
		}
		
		$files{$s}++;
		print("mv $_ $s\n");
		system("mv $_ $s");
	}	
	elsif($_ =~ /ss02/)
        {
                $s="ss".substr($s,8);
		print("mv $_ $s\n");
        	system("mv $_ $s");
        }
	else
	{
		print("** $_\n");
	}
}

foreach $file (keys(%files)) 
{
	if($files{$file}>1)
	{
		print ("** $files{$file}\t$file\n");
	}
}