#!/usr/bin/perl
use strict;
use warnings;
my $input;
my $start;
open (FILE, 'name.tsv');
open (OFILE, '>probe_dist.tsv');
while (<FILE>){
	($input)= split ("\t");
	 $start= $input;
}
while (<FILE>)
{
	$start =~ m/:(\d+)/;
	print OFILE "$start\n";
}
close (FILE);
exit;