if ( ! /,/ ) {
  print $_;
}