#
#
#


my (@strings);

while(<>) {
	if( /^sitecopy: .*\).?$/ || 
	    /^\* Diese .* dazugekommen:$/ || 
	    /^\* Diese .* geändert:$/ ||
	    /^  Änderungen .* ignoriert\.$/ || 
	    /^\* Diese .* gelassen:$/ ) {
		print;
	}
	else {
		@strings = split(/, ?/) ;
		foreach my $str ( @strings ) {
			print "$str\n";
		}
	}
}