perl -MData::Dumper -e 'print Dumper ["001002005" =~ /\d{3}/g]'