Select Code to Download

    my $x=1;
    my $y=1;

  $x += 1; $x  =$y; $x |=$y;  $x +=$y; $y  =$x;

 
  my $x=1; my $y=1; $x+=1; $y=$x; $x+=$y; $x+=1; $y=$x; $x+=$y; 

my $x=1;my $y=1; $x+=1; $x+=1;$x+=$y ;$y=$x ;$x+=$y ;$x+=$y ;$y=$x ;$x
+=$y ;
  $x+=$y ;$x+=$y ;$x+=$y ;$x+=1;$x+=$y ;$x+=$y ;$y=$x ;$x+=$y ;$x+=$y 
+;
  $x+=$y ;$y=$x ;$x+=$y ;$x+=$y ;$x+=$y ;$y=$x ;$x+=$y ;$x|=$y ;$y=$x 
+;
  $x+=$y ;$x+=$y ;

#!/usr/bin/perl -w

...
}