http://qs321.pair.com?node_id=65733

akm2 has asked for the wisdom of the Perl Monks concerning the following question:

This probably a very simple question. Sorry, but Im having a mental block.

I've got a fixed record length DB I substr into @arrys. One array contains names of people. I need a user to type in their name and I need to find it. If someone keys in Jeff Fox and I have A Jeff Patrick Fox III I want it displayed. The code I was trying to accomplish this is:

sub search { $matchcounter = 0; @terms = split(/\s+/, $FORM{'terms'}); foreach (@names) { $string = join(' ',@names); $string =~ s/\n//g; foreach $term (@terms) { if ($FORM{'case'} eq 'Insensitive') { if (!($string =~ /$term/i)) { $include{$matchcounter} = 'no'; last; } else { $include{$matchcounter} = 'yes'; } } } } }