Select Code to Download

#!/usr/bin/env perl
use v5.38;
...
words_list(\@list, $text, {minwordlen => 2, maxwordlen => 26 });
say "Found words: " . join ' ', map {"[$_]"} @list;
say $text;

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

bootstrap Text::ExtractWords $VERSION;