my $formel=$ARGV[0];
my ($vorzeichen_a,$a,$vorzeichen_b,$b,$vorzeichen_c, $c) = ($formel =~ m/y= (\+|\-|)    #$vorzeichen_a
                                                                            (.+|)   #$a
                                                                            x\^2
                                                                            (\+|\-|)    #$vorzeichen_b
                                                                            (.+)    #$b
                                                                            x
                                                                            (\+|\-|)    #$vorzeichen_c
                                                                            (.+)    #$c
                                                                            $/x);