print "Zahl1: ";
chomp($zahl1=<STDIN>);
print "Welche Rechenoperation wollen Sie durchführen? ";
chomp($operation=<STDIN>);
print "Zahl2: ";
chomp($zahl2=<STDIN>);

RECHNER: {
    $operation="-"    && do { $zahl3=$zahl1-$zahl2;   print $zahl3."\n";                    last RECHNER; } ;
    $operation="+"    && do { $zahl3=$zahl1+$zahl2;   print $zahl3."\n";                    last RECHNER; } ;
    $operation="*"    && do { $zahl3=$zahl1*$zahl2;   print $zahl3."\n";                    last RECHNER; } ;
    $operation="/"    && do { $zahl3=$zahl1/$zahl2;   print $zahl3."\n";                    last RECHNER; } ;
                         do { print "\n". $operation. " ist keine Rechenoperation"."\n";    last RECHNER; } ;
}