if ( my ($Code) = $Problem =~ /^\s*(\d+\s*[-+/*]\s*\d+)\s*=\s*$/ ) {
  if ( defined ( my $Answer = eval $Code ) ) {
     # do stuff with $Answer
  } else {
     # do stuff with $@
  }
} else {
  # Complain about invalid format
}