use Math::Symbolic qw/parse_from_string/;

my $ms;
eval { $ms = parse_from_string($expression) };
if ($@) {...} # catch parse errors

my $value;
eval { $value = $ms->value() };
if ($@) {...} # catch execution errors