Select Code to Download

my $start = $i == 0 ? $data[$i - 1][2] + 1 : 'none';
my $end = $i == $#data ? 'none' : $data[$i+1][1]-1;

        if ($special{$data[$i][0]}) 
        {
            if($i == 0)
...
            }
            print join "\t" => $id, $data[$i][0], $start, $end;
        }

#!/usr/bin/env perl -l

use strict;
...
HIT:PF15789 SEQ_START:1515   SEQ_END:1547
HIT:PF00267 SEQ_START:1200   SEQ_END:1350
//