use strict;
use warnings;

my $filename = 'gff.annotated.gtf';
open(my $fh, '<:encoding(UTF-8)', $filename) or die "Can't open $filename: $!";

my @transcript_id = ();

my @lines = <$fh>;
foreach my $lines(@lines)
{
my @column= split /\t/, $lines;

foreach $element(@column)
        {
if ($element[16] eq '"u"' || '"x"' || '"i"' || '"s"'){
push @transcript_id, $element[10];
        }

}
print @transcript_id;