my @extract; while () { push @extract,m/\d{8}/g; } print join "\n",@extract; __DATA__ 1,10000021 2,10000023 2,10000035 3,10000043 10000023 10000035 10000043 10000045 10000060 10000043,,zrous 10000045,,sjandw 10000060,,jnbro2 10000063,,eedwa 10000067,,empav 10000021/1 10000023/1 10000035/1 10000043/1 10000045/1 10000060/1 10000021/1,10000021 10000023/1,10000023 10000035/1,10000035 10000112,10002524,10000998,10000071,10000043,10000612,10000018,10000110,10000011,10000013