Select Code to Download

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

s/\s+/,/g for @tied_array;

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

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