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
        }
      
}