open my $fh_in , '<', 'test1.txt' or die "Can not open file test1.txt: + $!"; open my $fh_out, '>', 'test2.txt' or die "Can not open file test2.txt: + $!"; while (<$fh_in>) { s/\s+/\t/g; print $fh_out "$_\n"; } close $fh_out; close $fh_in; #### MGI:1918918 381629 0610007C21Rik 5 syntenic 51374 C2orf28 2p23.3 B MGI:1918917 71667 0610007L01Rik 5 syntenic F 55069 C7orf42 7q11.21 C MGI:1923501 76251 0610007P08Rik 13 syntenic B3 375748 C9orf102 9q22.32 M MGI:1915571 58520 0610007P14Rik 12 syntenic 11161 C14orf1 14q24.3 B