Highlight only text, not tag attributes

lib/PgWhyUpgrade/Plugin/DB.pm

@@ -337,7 +337,12 @@ sub get_all_diffs {
             next unless $search_results->{ $new_version };
             my @selected_changes = @{ $changes }[ @{ $search_results->{ $new_version } } ];
             for my $item ( @selected_changes ) {
-                $item =~ s{\b($keywords_re)\b}{<span class="searchhilight">$1</span>}gi;
+                my @parts = split m{(<(?:[^>]*|"[^"]*"|'[^']*')>)}, $item;
+                for my $element (@parts) {
+                    next if $element =~ m{\A<};
+                    $element =~ s{\b($keywords_re)\b}{<span class="searchhilight">$1</span>}gi;
+                }
+                $item = join '', @parts;
             }
             $changes = \@selected_changes;
         }

test.pl

+#!/usr/bin/env perl
+
+# UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
+use v5.14;
+use strict;
+use warnings;
+use warnings qw( FATAL utf8 );
+use utf8;
+use open qw( :std :utf8 );
+use Unicode::Normalize qw( NFC );
+use Unicode::Collate;
+use Encode qw( decode );
+if ( grep /\P{ASCII}/ => @ARGV ) {
+    @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
+}
+# If there is __DATA__,then uncomment next line:
+# binmode( DATA, ':encoding(UTF-8)' );
+# UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
+
+# Useful common code
+use autodie;
+use Carp qw( carp croak confess cluck );
+use English qw( -no_match_vars );
+use Data::Dumper qw( Dumper );
+
+# give a full stack dump on any untrapped exceptions
+local $SIG{__DIE__} = sub {
+    confess "Uncaught exception: @_" unless $^S;
+};
+# now promote run-time warnings into stackdumped exceptions
+#   *unless* we're in an try block, in which 
+#   case just generate a clucking stackdump instead
+local $SIG{__WARN__} = sub {
+    if ($^S) { cluck   "Trapped warning: @_" }
+    else     { confess "Deadly warning: @_"  }
+};
+# Useful common code
+
+use JSON;
+use Data::Dumper;
+use Mojo::File;
+use Mojo::DOM;
+my $json = JSON->new()->utf8()->decode( Mojo::File->new("db/10.js")->slurp );
+my $change = $json->[4];
+
+my @normalized_keywords = qw( returning set );
+my $keywords_re         = join( '|', map { '' eq ref $_ ? $_ : join( '|', @{ $_ } ) } @normalized_keywords );
+
+for my $item ( @{$change} ) {
+    my @parts = split m{(<(?:[^>]*|"[^"]*"|'[^']*')>)}, $item;
+    for my $element (@parts) {
+        $element =~ s{\b($keywords_re)\b}{<span class="searchhilight">$1</span>}gi unless $element =~ m{\A<};
+    }
+    $item = join '', @parts;
+}
+
+print Dumper($change);
+
+exit;