Regular Expression Perl

$_=5;
s/5/6 * 4 - 22/e;
print "The result is: $_\n";
$_=1055;
s/5/3*2/eg;
print "The result is: $_\n";