Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @SlectedColumns = (9, 7, 6, 0, 5, 0, 4, 3, 2, 0, 1, 9, 9);
...
do something with col 3
do something with col 2
do something with col 1

use constant RX_COMMENT => qr{ ... }xms;
...
...
    ...

    }  # end while LINE