my $problem = qr{
  (\d+
   \s+
   [\+|\-|\*|\/]
   \s+
   \d+)
}x;

my $evaluation = '10 / 2';

{
  local $_ = $evaluation;
  s/$problem/$1/ee;
  print
}