opendir(DIR, "./") or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
    # do something with "$dirname/$file"
    next unless $file=~/sites/;
    $file2=$file;
    $file=~s/sites/1/;
    $file.=".sites";
    
    system ("mv $file2 new/$file");


}
closedir(DIR);