$recno = (split (/ /))[1];
($qno, $vtext) = (split (/ /,$_,4))[1,3];