while( <> ) { &assert ( (substr($_,0,4) eq "573\r") , "blah, blah...