# s/(10)/$1+1/e $dollar1 = "10"; $replace = $dollar1 + 1; # One 'e', so Perl expression. print $replace; # 11 # s/(10\+4)/$1/e $dollar1 = "10+4"; $replace = $dollar1; # One 'e', so Perl expression. print $replace; # 10+4 # s/(10\+4)/$1/ee $dollar1 = "10+4"; $replace = eval $dollar1; # Two 'e', so Perl expression + eval. print $replace; # 14