my @tag_arr = qw(<NumData>1234567</NumData> <NumData>2345678</NumData>);
my @out_arr;

for ( @tag_arr ) {
    push @out_arr, ( split /(\d+)/ )[1];
}