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