if (index($args, '*') != -1) {
    die "No * are allowed.\n"
}

##</code><code>##

$args =~ s/\*//g;