comgetter(qw(Aardgas Goud brent#olie Koper,));

sub comgetter
{
    my @words = @_;
    tr/#/ / for @words;
    ...
}