perl script to help analyse log file