splitでデリミタも1要素として分解

split で分解するパターンを括弧でキャプチャする

$str = 'abc,de,fg,hijk,lmn,op';
@list = split(/(,)/, $str);

1行ごと出力するとこんな感じ
abc
,
de
,
fg
,
hijk
,
lmn
,
op