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