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

my $evaluation = '10 / 2';

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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.