перл массив

сначала прочти все в переменную потом split в массив, думаю есть решение красивее.

Наверное, надо что-то типа:

{
local $/=undef;
$content=<file>;
# это прочитает весь файл сходу

@array = split /\s+/s, $content;
# а это разобьет на строки из непробельных символов
}

Хотя я не совсем понял, что за конструкцию нужно в самом конце получить...

> @array = split(/\s*\, <stdin>);

Ну чё за бред? Если имелось в виду /\s*/, то это тоже не сработает как нужно, ибо совпадает с чем угодно и разобьёт вход посимвольно.

а вообще:

map { push @array, split " " } <>

даже проще, @array = map { split } <>;

$/='\n';
open F, "<file.txt";
@m=<F>;
close F;

push @m => $_ while <stdin>;

браво :)

Только без ацетона не работает.