diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm --- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 22:53:55.115000000 -0400 +++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 23:02:47.748000000 -0400 @@ -376,7 +376,7 @@ my $sbllistcgi = $q->param('sbllist'); - my @sbllistcgi = split /\s+/, $sbllistcgi; + my @sbllistcgi = split /\s{2,}/, $sbllistcgi; my $sbllistdb = ''; foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; } $sbllistdb =~ s/^,//; @@ -385,7 +385,7 @@ my $rbllistcgi = $q->param('rbllist'); - my @rbllistcgi = split /\s+/, $rbllistcgi; + my @rbllistcgi = split /\s{2,}/, $rbllistcgi; my $rbllistdb = ''; foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; } $rbllistdb =~ s/^,//;