$foo = join '', @{$chars};
$string =~ /^[\Q$foo\E]+$/;

##</code><code>##

$string =~ /[^\Q$foo\E]/;