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

##</code><code>##

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

##</code><code>##

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