Select Code to Download

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