#!/usr/bin/perl -w
use warnings;
use strict;

my @search = ("/<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 Address

print @search;