Select Code to Download

use Modern::Perl;

while (<DATA>) {
...
Nov 16, 2012 5:17:54 AM com.sitapp01.commerce.CentinelUtil.AYCentinelU
+til getAuthenticateResponse()

ETC ETC ETC ...

Nov 16, 2012 5:17:53 AM - INFO - Authenticate RequestXML -  - 85852739
+13266697
Nov 16, 2012 5:17:53 AM - SEVERE - Authenticate ResponseXML - 5207694 
+- 8585273913266697
Nov 16, 2012 5:18:48 AM - INFO - Authorize ResponseXML - 5207694 - 858
+5273913266697