use strict;
use warnings;
use XML::Twig;

my $xmlStr = <<XML;
<project>
 <run_count>
  <count>13</count>
 </run_count>
</project>
XML

my $twig= new XML::Twig(
    PrettyPrint   => 'indented',
    twig_handlers => { count => \&count }
);
$twig->parse($xmlStr);
$twig->print();
exit;

sub count {
    my ($twig, $cnt) = @_;
    $cnt->set_text(14);
}  


__END__

<project>
  <run_count>
    <count>14</count>
  </run_count>
</project>