#!/usr/bin/perluse warnings;use strict;my $text = "one, two, three, four";while ($text =~ /\b(\w+)\b/g) { print $1, "\n";}