Select Code to Download

$b = 'aaa,bbb,ccc ddd; eee fff, kv.6 end';

@a = split(/[\s\,\.\;]+/, $b);
...
foreach (@a) {
print "$_\n";
}

aaa
bbb
ccc
...
kv.6 end
6 end
aaa,bbb,ccc ddd; eee fff, kv.6 end