Select Code to Download

input:                      desired output:
  scalar with this            scalar with this
...
5   0 1 0 0 0 1 1 0         5   0 0 0 1 1 1 1 0
6   0 1 0 0 0 1 1 1         6   0 1 1 0 0 1 1 0
7   0 1 0 0 1 0 0 0         7   1 0 1 0 1 0 1 0

#!/usr/bin/perl

...
    }
    print "\n";
}