perl -MData::Dumper -e 'print Dumper [unpack ("(A3)*", "001002005")]'