$quoted_replace = '"$1 (\$1.00)"'; # Escape \, $, @ and /. Add quotes
$title =~ s/$search/eval $quoted_replace/e;