#!/usr/bin/perl -w
use strict;

open FILE, "vik.txt" or die $!; 
while(<FILE>)
{
  my ($exon, $number1, $number2) = (split /\s+/, $_)[2,3,4];
  if (defined ($exon) and $exon eq "exon")
  {
     print "$number1 $number2\n";
  }
}