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

##</code><code>##

#!/usr/bin/perl -naF,
print join "\t",@F;
END{warn "Changed , to tab on $. lines\n"}