map{$x=e;$_,[grep{e eq$x}@{$_[4]}]}

" $_[0] "=~/ ([^ ]{$_[1],$_[2]})(?= )/g