Why not sending some control characters then wait for the start character, dump it and get the next.

Like this:

Send "#######$data"

on PIC side:

Hserin [wait("$"),str mydata\data_bytes]

Ioannis