DB<1> @array=("aqw","asd8dsa","sd8sd","89","aws"); DB<2> @c = grep {/\d/} @array; DB<3> x @c 0 'asd8dsa' 1 'sd8sd' 2 89