Select Code to Download

perl -e'print(($_^$_>>1).$/)for(0..pop)' 15
     12345678901234567890123456789012345

perl -le'print$_^$_>>1 for 0..pop' 15
     12345678901234567890123456789

perl -E'say$_^$_>>1 for 0..pop' 15
     12345678901234567890123456