another one just for fun

unshift(@w,$q) while(($q = <>) && ($q ne ".\n")); print @w
[download]

Best,
  -Adam