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