Select Code to Download

@cols[1 .. $#cols] = map(tr /[1,2]/[0,1]/, @cols)

map { tr/12/01/ } @cols;

tr/12/01/ for @cols;