#!/usr/bin/perl
use strict;
use warnings;

my $a="Bommerlunder";
my $b="Eisgekuehlter $a -\n$a eisgekuehlt.\n";
my $c="\nUnd dazu:\n";
my $d=1;
my $e="Brot";
my $f=" mit ";
my $g="Schinken";
my $h="Ei";
my $i=" - ";
my $j=" belegtes $e";
my $k="belegte";
my $l=" $k Brote";
my $m="$k $e";
my $n="!\nDas sind ";
my $o=" und ";

# erste strophe
print "$b$b$c$d$j$f$g$i$g!\n$d$j$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";

# alle weiteren strophen *g*
while (++$d){
   print "$b$b$c$d $m$f$g$i$g!\n$d $m$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";
}

$a="Bommerlunder";$b="Eisgekuehlter $a -\n$a eisgekuehlt.\n";$c="\nUnd dazu:\n";$d=1;$e="Brot";$f=" mit ";$g="Schinken";$h="Ei";$i=" - ";$j=" belegtes $e";$k="belegte";$l=" $k Brote";$m="$k $e";$n="!\nDas sind ";$o=" und ";print"$b$b$c$d$j$f$g$i$g!\n$d$j$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";while(++$d){print"$b$b$c$d $m$f$g$i$g!\n$d $m$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";}

#!/usr/bin/perl

use strict;
use warnings;

for (1..10) {
    my $sum = $_*2;
        print qq{
        Eisgekuehlter Bommerlunder -
        Bommerlunder eisgekuehlt.
        Eisgekuehlter Bommerlunder -
        Bommerlunder eisgekuehlt.

        Und dazu:
        $_ belegtes Brot mit Schinken - Schinken!
        $_ belegtes Brot mit Ei - Ei!
        Das sind $sum belegte Brote,
        $_ mit Schinken und $_ mit Ei.

        Und dazu:
        }
}

#!/usr/bin/perl
use strict;
use warnings;

my $refrain = "Eisgekuehlter Bommerlunder -\nBommerlunder eisgekuehlt.\n\n";
my $i = 0;
my $end = 'es';
for (;;) { 
  print "$i belegt$end Brot mit Schinken - Schinken!\n";
  print "$i belegt$end Brot mit Ei - Ei!\n";
  print "Das sind ".($i+$i)." belegte Brote,\n";
  print "$i mit Schinken und $i mit Ei.\n\n\n";
  print "$refrain" x2;
  $end = 'e';
  $i++;
}

$r="Eisgekuehlter Bommerlunder -\nBommerlunder eisgekuehlt.\n";$i=0;$e='s';for(;;){print "$i belegte$e Brot mit Schinken - Schinken!\n
$i belegte$e Brot mit Ei - Ei!\nDas sind ".($i+$i)." belegte Brote,\n$i mit Schinken und $i mit Ei.\n\n\n";print"$r"x2;$e='';$i++;}

#!/usr/bin/perl
sub o{printf @_}sub p{o($_[0],$i,$i>1?'':'s',$i>1?'e':'',$_[1],$_[1])}
($w,$x,$y,$z)=('isgekühlt','Bommerlunder','Schinken','Ei');($c,$d,$e)=("E$w"."er $x -\n$x e$w.\n","\nUnd dazu:\n","%u belegte%s Brot%s mit %s - %s!\n");
$i=0;for(;;){$i++;o($c);o($c);o($d);p($e,$y);p($e,$z);o("das sind %u belegte Brote,\n%u mit $y und %u mit Ei.\n\n",$i*2,$i,$i)}

sub o{printf @_}
($w,$x,$y,$z)=qw(isgekühlt Bommerlunder Schinken Ei);($c,$d,$e)=("E$w"."er $x -\n$x e$w.\n","\nUnd dazu:\n","%u belegte%s Brot%s mit %s - %s!\n");$w='s';$x='';
for($i=1;;$i++){o($c.$c.$d);o($e,$i,$w,$x,$y,$y);o($e,$i,$w,$x,$z,$z);o("das sind %u belegte Brote,\n%u mit $y und %u mit $z.\n\n",$i*2,$i,$i);$w='';$x='e'}

#!/usr/bin/perl

for (1..10) {
$s=$_*2;my @x=$_>1?('','e'):('s','');($i,$j,$k,$l,$m)=qw(belegte Brot Schinken 
isgekuehlt Bommerlunder);print "E${l}er $m - $m e${l}.\n"x2 .qq{
Und dazu:\n$_ $i$x[0] $j$x[1] mit $k - $k!\n$_ $i$x[0] $j$x[1] mit Ei - Ei!
Das sind $s $i ${j}e,$_ mit $k und $_ mit Ei.\n\nUnd dazu:\n\n}}

#!/usr/bin/perl
sub o{return "$_ $i$x $j$y mit $_[0] - $_[0]!
"}for (1..10) {$s=$_*2;($x,$y)=$_>1?('','e'):('s','');($i,$j,$k,$l,$m)=qw(belegte Brot Schinken isgekuehlt Bommerlunder);$o='Und dazu:
';print "E${l}er $m -
$m e${l}.
"x2 ."
$o
".o($k).o('Ei')."Das sind $s $i ${j}e,
$_ mit $k und $_ mit Ei.

$o
"}

while(++$n){$s=$n*2;@x=$n>1?('','e'):('s','');($i,$j,$k,$l,$m)=qw(belegte Brot Schinken isgekuehlt Bommerlunder),$d="Und dazu:\n";print "E${l}er $m -
$m e${l}.\n"x2 .qq(
$d$n $i$x[0] $j mit $k - $k!
$n $i$x[0] $j mit Ei - Ei!
Das sind $s $i ${j}e,
$n mit $k und $n mit Ei.

$d)}