Select Code to Download

foreach my $logfile ( <./report*> ) 
{
...
    print "\n\n--------------------------------\n@ll\n";
    printf ("%22s %7.2f %7.2f %7.2f %7.2f %7.2f %7.2f\n", $logfile, -M
+ _, -A _, -C _, -r _, -w _, -O _);
}

----------------------------------------------------------
-rw-rw-r--   1 not_me    mygroup      50555 Mar 25 16:44 ./report.txt
...
----------------------------------------------------------
-rw-rw-r--   1 me        mygroup      41397 Jul 31  2014 ./report_7_30
+.txt
./report_7_30.txt    0.99    0.00    0.99    1.00    1.00    1.00