hi,

well Perl has got this two cool functions (among others:)) :

opendir();
readdir();


so what you could do is:
use strict;
use warnings;
use File::Copy;

opendir (DIR,"./path") || die "$!";     # this opens the directory
foreach my $i(readdir DIR){
  next if (/\./g || grep{$_=~/$i/g}22..50);
  move("./path/$i", "/tmp/$i");   #   if (-e "./path/$i");
}
closedir DIR;
[download]

that is it :)

UPDATE:

my bad, tollic is right, so basically what you do is check if the var in question is a regular file or not:

next unless(-f "./path/$i" || !grep{$_=~/$i/g}22..50);
[download]

sorry :)