Select Code to Download

PCSPLMNCallDataRecord                                       
    mSOriginating                             callPosition            
+                                    3'D
...
      incomingRoute                           "BAPL01I"'S
      callingPartyNumber                      14xxxxxxxxxx'TBCD ((((Th
+is is the $msisdn line))))
      calledPartyNumber                       1xxxxxxxxF'TBCD

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

if ($lines[43] || $lines[30] || etc... =~ "$msisdn")

if ($lines[1] =~ "mSOriginating") {
if ($lines[43] =~ "mSOriginating") {
...
print "blah";
}
}

if ($lines[30] =~ "$msisdn") {