[MacPerl] Searching help

[Michael Eggleston <nghtstr@michaelsmacshack.com>]

I need some help.  Here is the situaltion.  I have joined an entire HTML 
document together to make it searchable using s/// and m// and now I have 
a problem.  Here is the code snippet:

while ($done ne "true") {
     $done = "true";
     if ($TheHTML =~ m#(<input.*?>)#i) {
          $done = "false";
          $newline = $1;
          if ($newline =~ m#(hidden|submit|reset)#i) {
               $TheHTML =~ s/$newline//g;
          } elsif ($newline =~ m#checkbox#i) {
               $newline =~ m#(name=".*?")#i;
               $thename = $1;
               $thename =~ s/name="//i;
               chop $thename;
               if ($data{$thename}) {$TheHTML =~ s/$newline/$yes/g;}
                    else {$TheHTML =~ s/$newline/$yes/g;}
          } else {
               $newline =~ m#(name=".*?")#i;
               $thename = $1;
               $thename =~ s/name="//i;
               chop $thename;
               $TheHTML =~ s/$newline/$data{$thename}/g;
          }
     }
}


Can you please help??


===========================================================================

                             Mike Eggleston
                      nghtstr@michaelsmacshack.com
                   http://nghtstr.michaelsmacshack.com

                            Take the eTour!!
           http://www.etour.com/default.asp?associd=aff12270
===========================================================================



# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org