如何使用perl搜索xml文件以查找特定的字符串?

$characterString = $verb[2];
$inputFile = $targetdirectory."/ppt/slides/slide".$slidenumber.".xml";

open FILE, "<$inputFile>";
  for (@lines) {
  if ($_ =~ /$characterString/) {
    print "Matched $characterString \n ";
  } else {
    print "Did not match $characterString\n";
}
}
close FILE;
$characterString = $verb[2];
$inputFile = $targ