in reply to Trying to get intergenic sequences using BioPerl

ups, I did it again... stoopid and sexy anonymous monkey. Fix and repeat.

if ($pt eq "CDS" or $pt eq "rRNA" or $pt eq "tRNA")

You can also wrote this line as:

if ($pt =~/^(CDS|[rt]?RNA)$/)

In Section Seekers of Perl Wisdom