#!/usr/bin/perl -w

foreach my $file (split /\n/, `ls odochartaigh-newsletters_Dir`) {
  # print "<$file>\n";
  if ($file =~ /^odochartaigh-newletters(.+)$/) {
    my $c = "mv odochartaigh-newsletters_Dir/$file odochartaigh-newsletters_Dir/odochartaigh-newsletters$1";
    print $c."\n";
    system $c;
  }
}
