Let a regex find what you need

    my @cmp = $line[$i] =~ /\tchr([0-9]+)\t/g;
    if (2 == @cmp and $cmp[0] != $cmp[1]) {
        print $line[$i];
    }
[download]