while(){ push @all, $_ for split /\r?\n/ }