#!/usr/bin/perl 
use strict; 

#my $input = 1; 

###############
# Eingabe einer Formel über die Tastatur
###############
print "Bitte geben sie eine Formel ein und trennen sie mittel Leerzeichen : ";

my $string = ""; 
my @array = ();
for ( $string = <STDIN>)
{ 
     chomp($string);
     printf("Ihre Formel lautet, %s !\n",$string); ## Ausgabe mittels Zeichenkette
      @array =  split(/\s+/,$string);  
    for (my $i = 0; $i < @array;  $i++)
        {
            print "@array[$i] \n"; ## Ausgabe der jeweiligen Positionen im Array
        }
      
}
  
my $ergebnis = eval($string);
print sprintf("%.2f \n", $ergebnis );