#!/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;


##</code><code>##

dpich@m6400-vb:~/Documents$ perl 2time.pl
/<ID>(.*?)</ID>//<TimeStamp>(.*?)</TimeStamp>//<IP_Address>(.*?)</IP_Address>//<Title>(.*?)</Title>//<Complainant><Entity>(.*?)</Entity>//<Contact>(.*?)</Contact>//<Address>(.*?)</Address>//</Phone><Email>(.*?)</Email>/dpich@m6400-vb:~/Documents$