$ftp->get($_) for grep /\.txt$/, $ftp->ls; #### --- print map { my ($m)=1<