# cat mt #!/usr/bin/perl -w @test = ( "192.168.1.1 index.html index 5 seconds", "192.168.1.1 links.html links, index.html index 10 seconds ", "192.168.1.1 article1.html art1, article2.html art2, adpage 200 seconds", ); 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