for my $filename ($ftp->ls()){
   $ftp->get($filename) if $filename=~ /\.txt$/;
}