Select Code to Download

#!/usr/bin/perl

...
my @rows = split /^/ , $after_match;
printf "Found %d lines after match in file.\n", scalar( @rows );

Test Log Header
040702003113 21% 1175 1859 8239 8744 2221 0 0 4 100% 7% T 6%
...
040702003113 21% 1175 1859 8239 8744 2221 0 0 4 100% 7% T 6%
040702003113 21% 1175 1859 8239 8744 2221 0 0 4 100% 7% T 6%
...for 160 lines...

Output of "wc test_log.txt":
161    2243    9776 test_log.txt

Ouput of "test.pl":
Found 34 lines after match in file.