chomp (my @files = `ssh somehost ls foo`);
for (@files) {
    my $qf = quotemeta;
    system "scp somehost:foo/$qf .";
    system "ssh somehost mv foo/$qf bar/$qf";
}