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

@lines = split(/\n/, $para);
if (@lines == 1) {
$lastHeading = $lines[0];
next;
}
if ($para =~ "mSOriginating") {
if ($para =~ "$msisdn") {
print "@lines";
}
}
}