Select Code to Download

(?:(?<=\w)(?=\W|\z)|(?:(?<=\W)|(?<=\A))(?=\w)

(?:(?<!\w)(?=\w)|(?<=\w)(?!\w))

(?:(?<![\w/-])(?=[\w/-])|(?<=[\w/-])(?![\w/-]))

my $w = '\w/-';
my $b = "(?:(?<![$w])(?=[$w])|(?<=[$w])(?![$w]))";
my @words = ($rec =~ /${b}[$w]+${b}/g);