G'day joshywashy,

As already pointed out (either directly or via link), in order for us to help you, you need to provide:

• The input data in a form that shows us exactly what it looks like.
• The actual code you're running so we can also run it.
• The actual output your code is producing (including any error or warning messages).
• The expected output, i.e. what you really wanted.

In the code you posted, you have a definite problem with "while<$process>". I suspect you also have a problem with "elsif(/something else/)".

Is this closer to what you were trying to achieve:

#!/usr/bin/env perl

use strict;
use warnings;

while (<DATA>) {
    if (/in mmgsdi_evt_cb/) {
        print 'MATCH: ', $_;
    }
    else {
        print 'OTHER: ', $_;
    }
}

__DATA__
0x0 in mmgsdi_evt_cb
mmgsdi X
mmgsdi Y
0xd in mmgsdi_evt_cb
0x1a in mmgsdi_evt_cb
0xe in mmgsdi_evt_cb
0xf in mmgsdi_evt_cb
mmgsdi Z
0x13 in mmgsdi_evt_cb
mmgsdi Z
mmgsdi Z
[download]

Output:

MATCH: 0x0 in mmgsdi_evt_cb
OTHER: mmgsdi X
OTHER: mmgsdi Y
MATCH: 0xd in mmgsdi_evt_cb
MATCH: 0x1a in mmgsdi_evt_cb
MATCH: 0xe in mmgsdi_evt_cb
MATCH: 0xf in mmgsdi_evt_cb
OTHER: mmgsdi Z
MATCH: 0x13 in mmgsdi_evt_cb
OTHER: mmgsdi Z
OTHER: mmgsdi Z
[download]