# ------------------------
foreach my $f (@myGlob) {
   $!='';  # STILL complaining
   if (-l $f) { next; }
    move ($f,$RecBak) if (-f $f); 
   # failed to skip symbolic links 
   # till I said if -l $f next (why!?)
   if ($!) { print "\$!:[$!] $f FAILED! }
   else { print "$f moved" ;}
}
# ----------------------