広告
引数からすべての正規表現のメタ文字をバックスラッシュでエスケープしたものを返します。
print quotemeta('(\S+)\s'), "\n";
\(\\S\+\)\\s
https://www.7key.jp/program/perl/quotemeta.html