use strict;
use warnings;

use Data::Dumper;
use Math::Expr;

my $e=Parse("y=ax^2+bx+c");

print Dumper ($e);