in reply to Re: Divide a list of string into substrings
in thread Divide a list of string into substrings

> Otherwise what is the solution???

My program (changing the tolerance to int rand 5) says 

Score 27
$VAR1 = [
          [
            '333',
            'X111'
          ],
          [
            '222',
            'X111'
          ],
          [
            '000',
            'X333'
          ],
          [
            '000',
            'X111'
          ]
        ];

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom