#!/usr/bin/perl -w

########################################################################
# Poor Man's Rename - quick rename(1) replacement for srl              #
# by Paul Duncan <pabs@pablotron.org>                                  #
########################################################################

use strict;

# get regex
die "Missing regular expression" unless @ARGV;
my $re = shift @ARGV;

# apply regex to each path
for my $old_path (@ARGV) {
  my $new_path = $old_path;
  eval "\$new_path =~ $re";
  rename $old_path, $new_path unless $old_path eq $new_path;
}