#!/usr/bin/perl

foreach $d (<sub*>) {
  if (opendir(DIR, "$d")) {
    while ($f = (readdir(DIR))) {
      if ($f =~ /^\._/) {
        printf("mv \"$d/$f\" ~/down/yy)\n", length($f));
      }
    }
  }
  closedir(DIR);
}