use XML::Rules;

my @numbers;
my $parser = XML::Rules->new(
 rules => [
  '_default' => '', # not interested in most tags
  'CS_REFCLT' => sub {push @numbers, $_[1]->{_content}; return},
 ],
);

$parser->parse($filename);