Select Code to Download

>perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 0
723

>perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 1
127

>perl -MDevel::Peek -e"$_='0'; Dump $_; int; Dump $_;"
SV = PV(0x236054) at 0x18447c4
...
  PV = 0x1824064 "0"\0
  CUR = 1
  LEN = 4

push @list, 0+$_;