in reply to I don't understand why I'm getting an "Use of uninitialized value" error

Print out the contents of @search and you will see that the back-slashes have been removed by interpolation.

You also have an off-by-one error in the line: 

  for (my $i = 0; $i <= $search_count; $i++) {

[download]

Replies are listed 'Best First'.
Re^2: I don't understand why I'm getting an "Use of uninitialized value" error
by TheBigAmbulance (Acolyte) on Nov 03, 2011 at 18:36 UTC

    So how does one maintain the integrity of the backslashes? I am not sure what you mean. Abbreviated Script:

    #!/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 Ent
+ity
          "/<Contact>(.*?)<\/Contact>/",        # Reporting Entity Con
+tact
          "/<Address>(.*?)<\/Address>/",        # Reporting Entity Add
+ress
          "/<\/Phone><Email>(.*?)<\/Email>/");    # Reporting Entity E
+mail Address

print @search;

    [download]
    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$

    [download]
[reply]
[d/l]
[select]

      This should work: 

      my @search = (
          qr[<ID>(.*?)</ID>],             # ID
          qr[<TimeStamp>(.*?)</TimeStamp>],    # Time Stamp
          qr[<IP_Address>(.*?)</IP_Address>],    # IP Address
          qr[<Title>(.*?)</Title>],        # Title
          qr[<Complainant><Entity>(.*?)</Entity>],    # Reporting Enti
+ty
          qr[<Contact>(.*?)</Contact>],        # Reporting Entity Cont
+act
          qr[<Address>(.*?)</Address>],        # Reporting Entity Addr
+ess
          qr[</Phone><Email>(.*?)</Email>],    # Reporting Entity Emai
+l Address
          );

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom