word word word - word - word word - ...

perl -ne 'print "$2n" if m{^([^-]+-){849}s*(w+)}' infile;

perl -ne 'print "$2n" if m{^([^-]+-){848}.+?s*(w+)s*-}' infile;

echo "Hello-World-I-Love-You" | cut -d- -f2
> World

cut -d- -f849 < infile

awk -F"-" '{split($850,a," ");print a[1];}' file