perl -anlF[^\\w\\.\-]+ -e 'next unless @F;shift @F;next if $F[0]=~/--/;;print join(",",@F)' testdata1.txt