Select Code to Download

c:\test>600418-2.pl
This input
...
0BB0B  ## Columns B, C, & D from Rows 1, 3 & 5.
C0CC0
DDDD0

#! perl -slw
use strict;
...

print join "\n", $label, @$_, "\n" for @subsets;