Taschenrechner ohne Punkt vor Strich

#!/usr/bin/perl
# Taschenrechner by Hax!
print "Bitte Zahl eingeben: ";
my $zahl1 = <STDIN>;
chop ($zahl1);
print "Rechenart eingeben (+,-,/,*)";
my $rechenart1 = <STDIN>;
chop($rechenart1);
print "Zweite Zahl eingeben: ";
my $zahl2 = <STDIN>;
chop($zahl2);
print "Rechenart eingeben (+,-,/,*)";		 
my $rechenart2 = <STDIN>;
chop($rechenart2);				 
print "Dritte Zahl eingeben: ";			
my $zahl3 = <STDIN>;
chop($zahl3);								                         
						 
sub addition {
($_[0] + $_[1]);
}
sub subtraktion {
($_[0] - $_[1]);
}
sub multi {
($_[0] * $_[1]);
}
sub division {
($_[0] / $_[1]);
}
					 						 
if($rechenart1 eq '+') {			 
print "\nAddition wird durchgefuehrt.\n";	 
$ergebnis = &addition($zahl1, $zahl2);		 
}						 
elsif($rechenart1 eq '-') {			 
print "\nSubtraktion wird durchgeführt.\n";	 
$ergebnis = &subtraktion($zahl1, $zahl2);	
}						 
elsif($rechenart1 eq '*') {			 
print "\nMultiplikation wird durchgeführt.\n";	 
$ergebnis = &multi($zahl1, $zahl2);		 
}						 
elsif($rechenart1 eq '/') {			 
print "\nDivision wird durchgeführt.\n";	
$ergebnis = &division($zahl1, $zahl2);		 
}
                 
if($rechenart2 eq '+') {                          
print "\nAddition wird durchgefuehrt.\n";         
$ergebnis1 = &addition($ergebnis, $zahl3);            
}                                                 
elsif($rechenart2 eq '-') {                       
print "\nSubtraktion wird durchgeführt.\n";       
$ergebnis1 = &subtraktion($ergebnis, $zahl3);        
}                                                 
elsif($rechenart2 eq '*') {                       
print "\nMultiplikation wird durchgeführt.\n";    
$ergebnis1 = &multi($ergebnis, $zahl3);               
}                                                 
elsif($rechenart2 eq '/') {                       
print "\nDivision wird durchgeführt.\n";         
$ergebnis1 = &division($ergebnis, $zahl3);            
}

[CODE]zwischen diesen beiden rein[/CODE]