Select Code to Download

while (<$fh>) {
   next if 1 .. 1;
   print "$_\n";
}

while (<$fh>) {
   next if $.==1 .. $.==1;
   print "$_\n";
}

for (1,2,3,4,5) {
   next if $_==1 .. $_==1;
   print "$_\n";
}

>perl -MO=Concise -e"print( 4 + 1 * 2 )"
6  <@> leave[1 ref] vKP/REFC ->(end)
...
-              <1> ex-rv2sv sK/1 ->6   |
5                 <#> gvsv[*x] s ->6   |
6              <$> const[IV 2] s ->7   /

sub PI() { 4 * atan2(1, 1) }
use constant SOMENUM => rand(4);

4
5+6*7
4 * atan2(1, 1)
PI
SOMENUM