open my $fh, "-|", "highlight", "-p" or die "highlight: $!";
while (<$fh>) {
my ($descr, $lang) = /^(.*\S)\s*:\s*(\S+)(?:\s.*|)$/;
open my $fh, "-|", "highlight", "-p" or die "highlight: $!";
while (<$fh>) {
my ($descr, $lang) = /^(.*\S)\s*:\s*(\S+)(?:\s.*|)$/;