Select Code to Download

c:\test>600418.pl
This input
...
        0 : 00111
        2 : 00111
        7 : 00111

#! perl -slw
use strict;
...
        } @set[ $offset .. $#set ];
    }
}