( $token, $line ) = split( /\s+/, $line, 2 );