if ( /[^,]/ ) {
  print $_;
}