Yup, i see the same thing, but what that ain't is the only way to invoke do.
If you call it blocky like perl -Mstrict -we"print do{!$ARGV}", you don't get that amusing error message (you just get 1).

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"