if ($concat !~ /\Q$string/) {
   $concat .= " and $string";
}