Dear firend,
You can use this bellow code.

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]