perl script to parse out smoke test results from logs