Select Code to Download

$ perl -wle " $_ = 333; for $1 ( 666 ){  print $1 if /(...)/;  }"
666

...
Use of uninitialized value $1 in print at -e line 1.