Select Code to Download

  if ( $elt ne "and" )
  {
...
  {
     $counter++;
  }

use strict;
use warnings;
...
  }
}
print "counter = $counter\n", Dumper(\@bucket);

counter = 2
$VAR1 = [
...
            9
          ]
        ];

use strict;
use warnings;
...
my $things = 'this and that and another brigand and a bandicoot';
my @bucket = split /\band\b/, $things;
print Dumper(\@bucket);

$VAR1 = [
          'this ',
...
          ' another brigand ',
          ' a bandicoot'
        ];