while (<STDIN>) {
	chomp;
	($a, $b) = split("=");
    for $word (split(",", $b)) {
		print "$a=$word\n";
    }
}