parse file using perl added