# Pull token from line (Not good perl style)
$end = index( $line, / /, 0 );
$token = substr( $line, 0, $end );
$line = substr( $line, $end ); # still need to lose whitespace
#