Select Code to Download

Select or download this

my %class =(AGGAG => { name => 'sd' },
            TT    => { name => 'terminator' });  # I shortened the ter
+minator for testing
...
        my $class = $highlight{$key}{$pos};
        wrap(\@lines, $pos + $class->{length}, '</span>');
        wrap(\@lines, $pos, "<span class='$class->{name}'>");

Select or download this

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,