如何计算字符串（XML标记）在一行中出现的次数？

foreach \"<Timestamp>\" in $line {
  print \"FOund\";
}

while ($line =~ /<Timestamp>/g) {
    print \"Found\\n\";
}

/g

use

XML::Twig

my $twig = XML::Twig->new( twig_roots => { Timestamp => 1 });
$twig->parsefile( $xml_file_path );
my $timestamp_count = ( my @a = $twig->root->children( \'Timestamp\' ));

foreach $line (<>)
{
  $tag = $line =~ m/(<.*>)/;
  push @tags, $tag;
  if( $tag ) redo;
}