#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;
use DateTime::Format::Strptime qw/ strptime /;

say 'RTHROTTLED incidents:';

$/ = 'Time: ';

while ( my $record = <DATA> ) { 
  if ( $record =~ /ESME_RTHROTTLED/ ) { 
    my @lines = split "\n", $record;
        
    # We know the time is in the first line
    my $time  = strptime('%d/%m/%Y-%T.%3N', $lines[0])->strftime('%FT%T.%3N');
 
    my $ESME;

    foreach my $line ( @lines ) { 
      $ESME = $1 if $line =~ /ESME:\s+(.+$)/;
    }   

    say '  ' . "$time $ESME";
  }
}