92, although I suspect it may not run in polynomial time...:)

sub assemble
{$l=eval(join'+',map{y===c}@_);for$x('a'..'z'x$l,'A'..'Z'x$l){return$x
+ if!grep{$x!~/$_/}@_}}
[download]