use strict;
use warnings;
use Data::Dumper;

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