foreach (@files) {
    next unless /Monk/;
    print "$_\n";
    # do something with $ftp->get... I presume
}