perl -MFile::Find -le 'find(sub{next unless /\.jpg$/i;my$f=$File::Find::name;next unless $f=~m|/07/|;my$m=(stat $_)[9];print $f;`ssh pudge "perl -e \x27utime($m, $m, q{$f})\x27"`;}, ".")'