map { my ($char, $hmtl) = split}
      split /\n/, <<'END';

##</code><code>##

      split ' ', <<'END';