#!perl -lpaF $"=','}for(glob"{@F}"x@F){