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