#!/usr/bin/perl -w

chomp($msisdn = <STDIN>);
$/ = ""; # read paragraphs
@lines = split(/\n/, $_);
if (@lines == 1) # A Heading
{
$lastHeading = $lines[0]
next;
}
if ($lines[1] =~ "mSTerminating") {
print("$lines[4]\n") if($lines[4] =~ "recordSequenceNumber");
}
}