# s/([\$\^\*\(\)\+\{\[\\\|\.\?])/\\$1/g for @list;
$_ = quotemeta $_ for @list;