What is the reason for the grep{/\S/}?

warnings is even more important than strict. Ditch the file slurp and split and just use list context <$F>.

I don't think the people who ran the contest had any motives in particular.