$,="~";
$data = join'', <DATA>;
@bits = split /\W+/, $data;
print @bits;

__DATA__
aa
bb
cc
dd,ee,ff,

gg    hh    ii

jj kk ll
mm  nn  oo
pp|qq|rr
^&$just#$@another#%%^perl@!^hacker!#