Check for String in TCP Payload from a specific position

when CLIENT_ACCEPTED {
 Collect at least 65 bytes if the bytes to parse are 59-65
TCP::collect 65
}
when CLIENT_DATA {

 use pool2 by default
pool Pool2

 Start reading at the 59th byte and save 6 characters to $match
if {[binary scan $bytes_raw x59a6 match] == 1}{
log local0. "Matched $match"
if { $match eq "000001" } {
pool Pool1
}
}
TCP::release
}