http://www.perlmonks.org?node_id=989780


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