Hi

Consider the following example under the Perl debugger:

  DB<1> @array=("aqw","asd8dsa","sd8sd","89","aws");

  DB<2>  @c = grep {/\d/} @array;

  DB<3> x @c
0  'asd8dsa'
1  'sd8sd'
2  89
[download]