$ perl -MO=Deparse,-p 1.pl
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
(my $i = 3);
(my $n = 1000);
loop: print($n 4);
print($n 8);
print($n 12);
print($n 16);
($n += 16);
((--$i) and (goto loop));
1.pl syntax OK


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,