perl -we "$,=2+2=>print('The result is ',$/)"
perl -we "1while(2+2>++$.);print qq;The result is $.$/;"
perl -we "tie $sum,'_',4;print 'The result is ',$sum,$/;sub _::TIESCALAR{bless[pop],'_'}sub _::FETCH{$_[0][0]=2+2}"
perl -we "my $two=$^W+!''; print 'The result is ',$two + $two,$/"
perl -we "print reverse $/,eval(join'+',(2)x2),'The result is '"
perl -we "$_=qq/The result is 2+2\n/=>y/2\+2/4/s,print"