#!/usr/bin/perl

#This script will "grep" for msisdn's originating and destination and transaction numbers for the MXE LOGS or#"mon402.log"

chomp($key = <STDIN>);
open(FILE, "mon402.log");
while (<FILE>) {
    foreach (sort {$a <=> $b} grep /$key/, grep s/<(.*?)>/TEXT/, $_) {
        print $_;
    }
}