($i,$j,$k,$l,$m,$o,$",$x)=split/%/," belegte% Brot%Schinken%isgekuehlt%Bommerlunder%$/Und dazu:$/% - %s";sub o{"$_$i$x$j mit @_!$/"}while(++$_){print"E${l}er $m -$/$m e${l}.$/"x2,$o,o($k,$k),o(Ei,Ei),"Das sind ",$_*2,"$i${j}e,$/$_ mit $k und $_ mit Ei.$/$o";$x=''}