var %sockreader
    sockread %sockreader
    if (*The* iswm %sockreader) {
      var %tempvar 
     %way Result: $remove(%tempvar,<br>)
      sockread %sockreader | %way %sockreader
      if (*overall* iswm %sockreader) {
        noop $regex(%sockreader,/^(.*?)cooking/Si)
        sockclose $sockname