Trolling season!

perl -E 'say(eval),$,.=$#$,$,x=eval,redo,for$,="+3"'