#!/usr/bin/perl -w
use strict;

my $msisdn;
my $cell;
my %cellsite;
my $lastHeading;
my $para;
my @lines;
my $cell1;

chomp($msisdn = <STDIN>);
$cell = "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'4F07";
$cell1 = "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'APP03";
%cellsite = ("$cell", "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'MAD023", "$cell1", "Cell ID for First Cell: MCC: 310  MNC: 64  LAC: x'44D  CI: x'APP03");

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

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

if ($lastHeading eq "MSTerminating") {
if ($lines[8] =~ m/$msisdn/) {
if ( $cellsite{$cell} ) {
print "$cellsite{$cell}\n";
}
if ( $cellsite{$cell1} ) {
print "$cellsite{$cell1}\n";
}
print "MSTerminating\n";
print "\n";
print "$lines[8]\n";
print "$lines[4]\n";
}
}
elsif ($lastHeading eq "MSORIGINATING") {
if ($lines[7] =~ m/$msisdn/) {
print "MSORIGINATING\n";
print "\n";
print "$lines[7]\n"; # sixth line
}
}
elsif ($lastHeading eq "TRANSIT") {
if ($lines[7] =~ m/$msisdn/) {
print "$lines[7]\n";
}
}
elsif ($lastHeading eq "mSOriginatingSMSinSMSIWMSC") {
if ($lines[4] =~ m/$msisdn/) {
print "$lines[4]\n";
}
}
}