my @list = $ftp->ls();
my @files = grep { /some pattern.*/ } @list;
foreach my $file (@files) {
    $ftp->get($file);
}