# A little ugly: We're going to grep thru @all_notes looking for
      # a match - but we need to strip the HTML markup (which we've
      # added to turn tags into links) out of the notes before checking
      # for a match, so that you don't match inside the HTML markup
      # while searching.  Also, you need to use a temp var, because
      # otherwise grep will modify $_.    Finally, use \Q (quotemeta) -
      # we don't want full patterns here, too much risk
      foreach (grep {my $t; ($t=$_) =~ s/<.*?>//g;
                     $t =~ /\Q$search_string/i}
               @main::all_notes) {