Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

...
} split ',', $s;

print join ' ', @a;