use File::Slurp;
...
for my $file (@files) {
  my $content = read_file($file);

  unless ($content =~ m{<order>(.*)</order>}s) {
    # bad file
  } else {
    # found <order>...</order>
  }
}