use Modern::Perl;
use Tie::File;

my @tied_array;

tie @tied_array, 'Tie::File', 'test.txt', autochomp => 1;

s/\s+/,/g for @tied_array;
##</code><code>##

dit is een test
hier  is     een andere zin
en tenslotte    de finale lijn
##</code><code>##

dit,is,een,test
hier,is,een,andere,zin
en,tenslotte,de,finale,lijn