Select Code to Download

$Problem =~ /(\d+)    # one or more digits
             \s*      # zero or more whitespace
...

my $Code = "$1 $2 $3"; # we're confident this is safe
$Answer = eval "$Code";