That split creates a 4 element list, with indices (0..3):

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