Maybe something like this:

my $text = '\section{Funding\qr{The Funding statement in the Acknowled
+gment has been moved to Funding section. Please check and confirm if 
+the edit is fine and amend if necessary.}}';
$text =~ s/(\\qr\{.*?\})\}/}\n\n$1/g;
print "$text\n";
[download]

The regular expression grabs the \qr followed by "simple" text in curly braces, and puts it after the curly brace of the \section. This prints:

\section{Funding}

\qr{The Funding statement in the Acknowledgment has been moved to Fund
+ing section. Please check and confirm if the edit is fine and amend i
+f necessary.}
[download]