...

use re 'eval';
local our @list;
$sentence =~ /
   (?{ [] })
   ^
   (?: ($pattern) (?{ [ @{$^R}, $^N ] }) )+
   $
   (?{ push @list, join('-', @{$^R}) })
   (?!)
/x;

die("No solution\n") if !@list;

print("$_\n") for @list;