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

$_ = "CC1G_00040T0	NODE_4204_length_20667_cov_33.873905_4	3e-46";

my $line = $_;
print "$line\n";
$line = s/\s+/\t/g;
print "$line\n";