#!/usr/bin/perl
use File::Copy;

$src = "c:\\temp (1)J";
for $f (glob("$src\*")) {
  move($f, "\out");
}