Select Code to Download

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

if (defined($a))
{}
...
{
   $a=1;
}