Someone

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