sub wrap {
    my ($lines, $pos, $markup) = @_;
    my $idx = int($pos / 50);
    substr $lines->[$idx], $pos % 50, 0, $markup;
}


my %dna;
my $name1 = "name1";
my $name2 = "name2";

$dna{$name1} = "ATATTATCCCCCTATATATGGAGGGAGAGGGGGGGGGGGGGGGGGGGGGGGGGG
+GAGAGAGGAGATTTTTTTTTTTTTTTT";
$dna{$name2} = "ATATATTATATATATTATATTCGCGCGCGCGGCGCGCGCGGCGCGCGCGTTTTT
+TTTTTTTTTAGGAGAGAGAGGGAGGAGGAGAGGGGAGT";

my %class =(AGGAG => 'sd',
            TTTTT => 'terminator');
my $regex = join '|', keys %class;
$regex = qr/((?i:$regex))/;

my %highlight;
for my $name (keys %dna)  {
    while ($dna{$name} =~ /$regex/g) {
        $highlight{$name}{ pos($dna{$name}) - 5 } = $class{$1};
    }
}

for my $key (keys %highlight)  {
    print "<p> <b>$key</b><input type='radio' name='selected_intergeni
+c' value='$dna{$key}'/> </p>";
    my @lines = unpack '(A50)*', $dna{$key};
    for my $pos (sort { $b <=> $a } keys %{ $highlight{$key} }) {
        my $class = $highlight{$key}{$pos};
        wrap(\@lines, $pos + 5, '</span>');
        wrap(\@lines, $pos, "<span class='$class'>");
    }
    print join "<br />", @lines;
}
[download]

($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,
[download]