Select Code to Download

sub doSomething
{
...
  ...
  ...
}

for (my $i = 0; $i < 2000; $i++)
{
  last if ($i & 1024);
  ...
}

if ($MyVALUE)
{
...
{
  return 5;
}

if ($MyVALUE) { return 4; }
return 5;

return $MyVALUE ? 4 : 5;

my $A = 0;
my $B = 0;
...

# EXAMPLE C:
($A,$B,$C)=map($_-40,unpack('x'x($V*3).'CCC',"-O(('\xe4\x8d:;"));