remove args typo from rbn.pl

diff --git a/perl/rbn.pl b/perl/rbn.pl
index f92b32019c8c8a8f218c3497a4343cc68aef08f8..eb2c743ecd9f2ff46348a96939532975451a2162 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -39,7 +39,7 @@ GetOptions('host=s' => \$host,
                   'want=s' => sub {
                           my ($name, $value) = @_;
                           $wantcw = $wantrtty = $wantpsk = $wantbeacon = 0;
-                          for (split /:,|/, $value) {
+                          for (split /[:,\|]/, $value) {
                                   ++$wantcw if /^cw$/i;
                                   ++$wantpsk if /^psk$/i;
                                   ++$wantrtty if /^rtty$/i;