#!/usr/bin/perl

chomp($msisdn = <STDIN>);
$/ = ""; # read paragraphs
while ($para = <>) {

$lastHeading;

@lines = split(/\n/, $para);
if (@lines == 1) # A Heading
{

$lastHeading = $lines[0];
next;
}

my $hitMe;

if ($msisdn && $lastHeading eq "MSTerminating") {
#if ($lastHeading eq "MSTerminating") {
print $lines[13]; # twelth line 
print $lines[2];  # third line
print $lines[5];  # sixth line
print $lines[4];  # fifth line
}
elsif ($lastHeading eq "MSORIGINATING") {
$hitMe = $lines[5]; # sixth line
}
elsif ($lastHeading eq "mSOriginatingSMSinSMSIWMSC") {
print $lines[5];
}
}