>perl
while (<DATA>) {
    print "GEFUNDEN\n" if /send/i;
}
_ _DATA_ _
01/24 12:35:41 aa1  waiting for ``OK'' ** found **
01/24 12:35:41 aa1  waiting...
01/24 12:48:52 aa1  wfr: waiting for ``RING''
01/24 12:48:52 aa1  send: ATA[0d]
GEFUNDEN