in reply to qw space issues
Here is another possibility:
comgetter(qw(Aardgas Goud brent#olie Koper,)); sub comgetter { my @words = @_; tr/#/ / for @words; ... }
(Change # to any suitable delimiter.)
Update: Removed trailing /g from tr/#/ /.
Athanasius <°(((>< contra mundum
In Section
Seekers of Perl Wisdom