#!/usr/bin/perl

open (FILE, 'name.tsv');
open (OFILE, '>probe_dist.tsv');
while (<FILE>) {
	
	my $name = (FILE=~ m/:(\d+)/);
	print OFILE "$name\n";
}
close (FILE);
exit;