my @patterns = (
   "<ID>(.*?)</ID>",                      # ID
   "<TimeStamp>(.*?)</TimeStamp>",        # Time Stamp
   "<IP_Address>(.*?)</IP_Address>",      # IP Address
   "<Title>(.*?)</Title>",                # Title
   "<Complainant><Entity>(.*?)</Entity>", # Reporting Entity
   "<Contact>(.*?)</Contact>",            # Reporting Entity Contact
   "<Address>(.*?)</Address>",            # Reporting Entity Address
   "</Phone><Email>(.*?)</Email>",        # Reporting Entity Email
);

my @xml_files = <*xml>;
for my $file (@xml_files) {
   for my $pattern (@patterns) {
      ...
      if ($line =~ $pat) {
      ...
   }
}