my $parts = [ split /[^\\]`|^`/, $string ];

my $count = 0;
foreach my $part (@$parts) {
  $count++;
  next if ($count %2);  # only substitute on odd number array items
  $part =~ s/</&lt;/g;
}

my $new_string = join '`', @$parts;