in reply to Split a string into a list of lists

my $string = "BEHACJBDLCENADFEGOFHQAGIHJRBIKJLSCKMLNTDMOFNPOQTGPRIQSKR +TMPS"; my @array = (undef); push @array, [0, map {ord ($_) - 64} split '', substr $string, 0, 3, ' +' ] while length $string; printf "%02d %02d %02d\n", @{$_}[1..3] for @array[1..$#array];

gives identical results when compared with your sample and may give you a little something to think about.


Perl's payment curve coincides with its learning curve.