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"; } }