Thanks feherke, one last question, the tenth column is the last column on the line, is there any setting to specify, if columns are longer then 10 ignore the line entirely?
perl -e 'print $i=pack(c5,(40*2),sqrt(7600),(unpack(c,Q)-3+1+3+3-7),oct(104),10,oct(101));'