Select Code to Download

my @remaining = grep {defined} split /[+-]{2,}/, $righteq;
  # fixed 2nd arg error

my @remaining = grep {defined}
                      split /
                            (e\^\(t\+-(\d+\.?\d*|\.\d+)\))
...
                            [+-]+  # filler, not captured
                            /x,
                            $righteq;