#!/usr/bin/env perl
use v5.38;
use Text::ExtractWords qw(words_list);
say $^V;
my $text = "12/21/84 Bob's 21st b'day was a wine-and-dine.";
say $text;
my @list;
words_list(\@list, $text, {minwordlen => 2, maxwordlen => 26 });
say "Found words: " . join ' ', map {"[$_]"} @list;
say $text;

##</code><code>##

v5.38.2
12/21/84 Bob's 21st b'day was a wine-and-dine.
Found words: [12] [21] [84] [bob's] [21st] [b'day] [was] [a] [wine-and-dine]
122184bob's21stb'daywasawine-and-dine

##</code><code>##

bootstrap Text::ExtractWords $VERSION;