Select Code to Download

"perl -e ' $sep=","; while(<>) { s/\Q$sep\E/\t/g; print $_; } warn "Ch
+anged $sep to tab on $. lines\n" ' csvfile.csv > tabfile.tab"

#!/usr/bin/perl

...
   print $tab_file, $_;
 } 
warn "Changed $sep to tab on $. lines\n"

"Monster, The Cookie", "123 Sesame St, TV land"