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

my @lines;
my $para;
my $lastHeading;
my $msisdn;

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

@lines = split(/\n/, $para);
if (@lines == 1) # A Heading
{
$lastHeading = $lines[0];
next;
}
if ($lines[1] =~ "mSOriginating") {
if ($lines[43] =~ "$msisdn") {
print "MSORIGINATING\n";
print "$lines[0]\n";
print "$lines[8]\n";
print "$lines[7]\n";
print "$lines[43]\n";
print "\n";
}
}
}