Select Code to Download

rnm "s/Blah Blah - \d{2} - //" "Blah Blah - 01 - Peter.txt" "Blah Blah
+ - 02 - Lois.txt"

#!/usr/bin/perl -w

...
  die $@ if $@;
  rename ( $was, $_ ) unless $was eq $_;
}