chomp(my $expr = <STDIN>);
$expr =~ /(\d+)\s+([+-/*])\s+(\d+)/ or
   die "invalid input\n";
my ($left,$op,$right) = ($1,$2,$3);
# ...