my @numbers = map {/([0-9]+)/} @original_array;
[download]

foreach $line(@source_array) {
   $line =~ s/<.*?>//g;
   push @target_array, $line;
}
[download]

Blessings,

~Polyglot~

s/<[^>]+>//g;
[download]

strip HTML tags

If the tag is same for all the elements, try this also

use strict;
use warnings;

use Data::Dumper;

my @array=('<NumData>1234</NumData>','<NumData>543535<NumData>');

my @Output;
foreach my $data(@array){
    $data=~ s/<NumData>|<\/NumData>//g;
    push @Output, $data;
}

print Dumper @Output;
 
[download]

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

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

use strict;
use warnings;
use Data::Dumper;

my @parse= qw (<NumData>1234</NumData> <NumData>543535<NumData>);
my @parse_out=map{ $1 if (/>(\d+)</) }@parse;
print Dumper @parse_out;

[download]

There is a nice node from cdarke for equivalences between unix tools/commands and Perl functions. You may find the reading interesting