use strict;
my $str = '"valid line"
\'valid line 2\'
\'\'
""
"\'\'\'"
"\'\'\'\'"
\'"""\'
\'""""\'
"hello new line\\
hello another line\\
end blank line"
\'hello blank line\\
\\ \\\\g\\
end blank line\'
"\\\'"
"\\""
"errors"
"broken line
"
\'broken line
\'
"broken line 2 \\ffd
\\hellod
"
\'\\\'
"\\"
"""
\'\'\'
';
my $regex = qr/("|')((?!(?!\\)(\1|\n))|(\\(.|\n))|((?!\\).))*?(\1)/p;
my $subst = 'newstr';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html