Help for this page
my ($failedTest) = grep { /FAIL/ } @reportContents; ...
for my $failedTest (grep { /FAIL/ } @reportContents) { ... }