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
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