next unless /([A-Z]) -> (.*)/; $GRAMMAR{$1} = $2;