#! perl
use strict;
use warnings;

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

##</code><code>##

14:39 >perl 823_SoPW.pl
4 - 2 = 2

14:39 >