push @list, grep{/\S/} split '' while <>;