The "natural" way to do it:

No more than 12 characters: ^.{0,12}

Words: ^(\w+(\s|$))*

Both must be true:

HOW?

Is there maybe some way to do this with a perl6 rule, or Parse::Recdescent?