while( my $hintline = ){ my ($first,$last) = split(/\ == /,$hints); my $results = `strings $filename | grep -i '$first'`; next unless length $results; printf "Found: %s\n", $last;