#!/usr/bin/perl

while(defined($entry = <STDIN>)){
	$entry =~ s/\"//g;
	$entry =~ s/\ \t/\t/g;
	$entry =~ s/\t\t/\t/g;
	$entry =~ s/Note\s/Note\t/;
	$entry =~ s/Target\s/Target\t/;
	$entry =~ s/CHROMOSOME_//;
	print $entry;
}
