Help for this page
my @extract; while (<DATA>) { ... 10000023/1,10000023 10000035/1,10000035 10000112,10002524,10000998,10000071,10000043,10000612,10000018,1000011 +0,10000011,10000013
10000021 10000023 ... 10000110 10000011 10000013
my @extracted=map { m/\d{8}/g } <DATA>;