If you prefer to run a script rather than remember and type all that in, there is one floating around. It was originally written by Larry himself. Tom Christiansen
posted it to comp.lang.perl.misc a few years back.
$ which rename
/usr/bin/rename
$ head -n 5 `which rename`
#!/usr/bin/perl -w
#
# This script was developed by Robin Barker (Robin.Barker@npl.co.uk),
# from Larry Wall's original script eg/rename from the perl source.
#