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