Select Code to Download

# cat mt
#!/usr/bin/perl -w
...
);

foreach (map { /[\d\.]+\s(.+)\sseconds/i } @test) { print "Test Data: 
+$_\n" };

# ./mt
Test Data: index.html index 5
Test Data: links.html links, index.html index 10
Test Data: article1.html  art1, article2.html art2, adpage 200