#!/usr/bin/perl
#
while (<>) {
    chomp;
    $old = $_;
    $new = $_;
    $new =~ s/[ \n\t]//g;
	if ($old ne $new ){
      print "rename($old, $new)\n";
      rename($old, $new);
	}
}

