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

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

##</code><code>##

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

$src = "c:\temp (1)";
opendir DIR, $src;
while ($f = readdir(DIR)) {
  move("$src\$f", "\out");
}