Because of a small error: one comma too many :)

while (<$csv_file>) { 
   s/\Q$sep\E/\t/g; 
   print $tab_file, $_;
   #              ^- That comma should not be there
   }
[download]

Other than that, I still think you ought to look into the proposed Text::CSV_XS or Text::CSV solutions.