foreach my $line ( @lines ){
  next if $line =~ /,{5}/;
  # do something
}

perl -ne ' do_some_print_statement_here unless /,{5}/' some_file.txt

my @lines = ...;
my @good_lines = grep( $_ !~ /,{5}/, @lines );