Simple perl script to extract patterns from log file into a csv file