Ok, I have a few more. First, the one I posted
last night followed by several new ones. (Including one that uses no digits)
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 _::TIESCAL
+AR{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"
I can only get away with the last one because
Ozymandias says I can.
