Select Code to Download

#!/usr/bin/perl -w
$op = shift or die "Usage: rename expr [files]\n";
...
  die $@ if $@;
  rename ( $was, $_ ) unless $was eq $_;
}

perl rename.pl 's/Blah Blah - \d{2} - //' *
perl rename.pl 's/^Blah Blah - \d{2} - //' *