And, if you are putting other stuff in your regex that you don't want escaped, end the quotemeta with a \E, ie,

if ($concat !~ /other stuff\Q$string\E more other stuff/) {
   $concat .= " and $string";
}
[download]

Scott
Project coordinator of the Generic Model Organism Database Project