#!/usr/bin/perl

chomp($msisdn = <STDIN>);
$/ = ""; # read paragraphs
$cell = "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'4F07";
while ($para = <>) {

$lastHeading;

@lines = split(/\n/, $para);
if (@lines == 1) # A Heading
{
$lastHeading = $lines[0];
next;
}

if ($lastHeading eq "MSTerminating") {
if ($lines[8] =~ m/$msisdn/) {
if ($lines[5] =~ m/$cell/) {
print "$lastHeading\n";
print "\n";
print "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'MAD023A\n";
print "$lines[8]\n";  # ninth line
print "$lines[4]\n";  # fifth line
}
}
elsif ($lastHeading eq "MSORIGINATING") {
if ($lines[7] =~ m/$msisdn/) {
print $lines[7]; # eigth line
}
}
elsif ($lastHeading eq "mSOriginatingSMSinSMSIWMSC") {
if ($lines[4] =~ m/$msisdn/) {
print "$lines[4]\n"; # fifth line
}
}
}
}