$somevar =~ /^[\d|\w|\*]+$/; # Bad regex, no biscuit.