#! perl -slw
use strict;

open FH_INPUT, "<throttle_log.txt" or die $!;
$/ = 'Time:';
while ( <FH_INPUT> ) {
    chomp;
    m{ESME_RTHROTTLED} and (m{^\s+([0-9/\.\:\-]+)\n} and print "THROTTLING DETECTED: $1");
}