Select Code to Download

$/ = 'Time: ';
while (<DATA>) {
  print( (split "\n")[0] ) if /ESME_RTHROTTLED/;
}

$ perl 1140724.pl
There were RTHROTTLED incidents at:
...
  2015-09-17T09:03:43.634
  2015-09-22T09:05:17.007
$

#!/usr/bin/perl
use strict;
...
00000004: 80 00 00 04              command_id: 0x80000004 submit_sm_re
+sp
00000008: 00 00 00 58              command_status: 0x00000058 ESME_RTH
+ROTTLED
0000000C: 00 02 9A 92              sequence_number: 170642