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

grep{/^.{$_[2],$_[3]}$/s}$_[0]=~/[^ ]+/g