perl -F, -ane "print join(',' => @F[0,8,9]), qq[\n] if (@F == 33)" input.txt