#! perl
use strict;
use warnings;

my ($a, $b, $c) = (4, 2, '-');
my  $op = "$a $c $b";
print "$op = ", eval $op, "\n";