Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
          "/<\/Phone><Email>(.*?)<\/Email>/");    # Reporting Entity E
+mail Address

print @search;

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