my $replacementExpr =
    '"${^MATCH}\\x0Ause English ( no_match_vars );\\x0A"';

s{$searchPattern}{eval($replacementExpr)}egxms;