$tmp_line =~ s/(.{4000})/$1\t/g;