my @filelist = grep { !/^\.{1,2}$/ } $ftp->ls($dir);