#!/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

##</code><code>##

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