#! /usr/bin/perl

while (<>) {
	chop;
	$old = $_;
	$new = $old;
	$new =~ s/ /_/g;     # space
	$new =~ s/'//g;      # quote
	$new =~ s/&/_/g;     # ampersand
	$new =~ s/,_/_/g;    # redundant comma
	$new =~ s/,/_/g;     # good comma
	$new =~ s/[()]/_/g;  # parens
	$new =~ s/_[_]+/_/g;    # cleanup
	if ($new ne $old) {
		print "mv '$old'  '$new'\n";
	}
}