#!/usr/bin/env perl

# I couldn't work out how to escape this for a shell alias
my $cmd = join '', split /\n/, <<'CMDS';
$_=lc;s/&/ and /g;
y/()'/--/sd;
s/(?:(\.)|(-)|[\W_])+/$1||$2||'_'/ge;
s/^[._-]//; s/[._-]$//;
CMDS

system('rename','-v',$cmd, @ARGV);