Select Code to Download

my $iterator = App::Ack->fandango(qw[ -in dir1 dir2/dir3 --match ^the.
+start.ends.now$ ]);
while(my $result = $iterator->() ){
...
       print "$lineno: $line\n";
    }
}

my @finolis = ack( qw[ --perl --match \bVERSION\b\s*=(.*?)$ ] );
for my $finoli ( @finolis ){
...
      my( $number, $line ) = @$noli;
   }
}