Select Code to Download

my @vocabulary = qw(abd abcd abc a bc);
my $sentence = 'abdaabc';
my $pattern = join '|', @vocabulary;

my @words = $sentence =~ /($pattern)/g;