How do you init $name? Like use constant name => 42?

Then

 if ( name =~ /^_?[^\W_0-9]\w*\z/ and !$forbidden{ name() }) {
[download]

might work? Conststant creates a sub witht the given name that returns the value.