Select Code to Download

use strict; 
use warnings;
...
push@_,map{if(!int){$.+=$.}else{$.+=$/};
$_+$.}grep{($_+1)%2}@$_;die map{chr}@{_}
[eval join(q{,},2,1,4,3,0)]=>$/||\$\<<1;

use strict; 
use warnings;
...
         =>$/        # this is still 10
         ||\$\<<1;   # this can all be ignored, since $/ is true