Select Code to Download

0        1         2         3
12345678901234567890123456789012
sub{grep$_,map$_[0]&1<<$_,0..31}

0        1         2         3
1234567890123456789012345678901
sub{grep$_[0]&($_=1<<$_),0..31}