>perl -wMstrict -MO=Deparse,-p -le
"print qq{\$_ '$_'} for $_ = 3; $_-- >0;
"
Useless use of numeric gt (>) in void context at -e line 1.
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
print("\$_ '${_}'") foreach (($_ = 3));
(($_--) > 0);
-e syntax OK