#!/usr/bin/perl -p
s/,/\t/g;
END{warn "Changed , to tab on $. lines\n"}