Help for this page

Select Code to Download


  1. or download this
    $foo = join '', @{$chars};
$string =~ /^[\Q$foo\E]+$/;
  2. or download this
    $string =~ /[^\Q$foo\E]/;