my $str = join ', ', map { "'$_'" } split /,/, "CAT,DOG,BIRD,COW";     # -> 'CAT', 'DOG', 'BIRD', 'COW'