C:\> perl -E "my $str = qq(|g|h|i); my $strQ = qq(\Q|g|h|i\E); say quotemeta($str); say $strQ;"
\|g\|h\|i
\|g\|h\|i