Some perl to parser iislog