Program Repair Shop

`CopyFiles`

      53                next if ($file =~ /^\./);
      54                next if !($file =~ (/[0-9]/));
      55                next if !($file =~ (/txt/));

We can make even the most superstitious programmer happy here:

                        next if $file =~ /^\./;
                        next if $file !~ /\d/;
                        next if $file !~ /txt/;

Now there's only one operator per line!