#!/usr/bin/perl6
my Str $cookie = 'foo=bar,count=1,date=YY:MM:DDX*&,';
say $cookie;
grammar cookies {
	rule TOP {
		^
		[
			<name> '=' <content>,	
		] +
		$
	}
	rule name {
		\w+	
	}
	rule content {
		[ ^ , ] +	
	}
}
say cookies.parse($cookie);