Select Code to Download

$escaped_replace = '$1 (\$1.00)'; # Escape \, $, @ and /
eval "\$title =~ s/\$search/$escaped_replace/";

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