Sorry, not at computer. You have records separated by "Time: ". As you loop through the record, you put the lines in an array by splitting on the new line character. The first element, or line, will contain the timestamp. You would need to loop through the elements of the array and do a regexp match, capturing the part of the line you want. But leave the existing test in there so you only loop through the record that have the interesting line.

Update: added code example

Here's a simplified example. I would not split into lines but use capturing regexps on the whole record, but doing the split into lines may may it simpler for you to see what's going on. 

#!/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";
  }
}

[download]
The way forward always starts with a minimal test.

In reply to Re^3: Parsing text string in Perl by 1nickt
in thread Parsing text string in Perl by gbwien

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.