Help for this page
/^\s*(\S+(?:.*\(.*\))?).+\s(\S+)\s*$/
use strict; use warnings; ... print "\nReport $name\n----------------------\n" ; print "$_\n" for @{$reports{$name}}; }