Select Code to Download

  my @array = (undef, map([undef, map($_-64, unpack('C3', $_))],
                                             unpack('(A3)*', $string))
+) ;

use strict ;
use warnings ;
...

  return \@array ;
} ;