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