perl one-liner: get column number

one blog with firebird mention and some tips to split csv files