#!/usr/bin/perl
use warnings;
use strict;

my @records;
open FILE, "vik.txt" or die $!; 
while(<FILE>)
{
    chomp;
  my @columns = split ' ', $_;
  push @records, \@columns;
}

foreach my $record(@records) {
  if ($record->[2] eq "exon") {

split ('d+',@$record);
	

print "$record \n";

  
}
}