Select Code to Download

open my $fh_in , '<', 'test1.txt' or die "Can not open file test1.txt:
+ $!";
...
}
close $fh_out;
close $fh_in;

foreach my $line(@input)
{
    $line =~ tr/ /\t/s;            
}

MGI:1918918                    381629                         0610007C
+21Rik             5            syntenic            51374             
...
MGI:1915571                    58520                          0610007P
+14Rik             12           syntenic            11161             
+             C14orf1                   14q24.3                   B