Select Code to Download

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