Hello, I have tried stripping the newlines out of the bad_ips text file with the following command.

grep -ri s/"\n"// ~/txt/bad_ips
[download]

And made the following changes to the code.

#!/usr/bin/perl
#
use strict;
use warnings;
#
#
my $workdir = "$ENV{HOME}/txt";
open BADIPS, "<",  "$workdir/bad_ips" or die "Couldn't open file: $!";
my $i = 1;
while (my $line = <BADIPS>) {
      chomp $line;
      print "add ns simpleacl bp-search-spammer$i DENY -srcIP $line -T
+TL 43200\n";
      $i++;
}
close   BADIPS;<br><br>
[download]

That worked BEAUTIFULLY! Thank you!!!