#!/usr/bin/perl

$ls = `ls -1 *`;
foreach $file (split/\n/, $ls) {
  next if ($file =~ /mover/);
  next if ($file =~ /^set/);
  print "mv $file set1.$file\n";
}