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

##</code><code>##

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