use strict;
my $str = ' }, {
"ControlLabel": "How the post-op instructions were given",
"ControlOptions": "Select all that apply:\\r\\ncomputer generated\\r\\nverbal\\r\\nwritten",
"ControlType": "OneResponse",
"Descript": "Post-Op Instructions"
}, {
"ControlLabel": "The degree of scaling",
"ControlOptions": "general\\r\\nlight",
"ControlType": "MultiResponse",
"Descript": "Prophy Scaling"
}, {
"ControlLabel": "The quadrants",
"ControlOptions": "Select all that apply:\\r\\nUpper Right\\r\\nUpper Left\\r\\nLower Right\\r\\nLower Left",
"ControlType": "OneResponse",
"Descript": "Quadrant-Select Multiple"';
my $regex = qr/("ControlLabel": ")(.*)(",\n\s*)("ControlOptions":.*)(Select all that apply:\\r\\n)(.*)(\n\s*"ControlType": ")(OneResponse")/mp;
my $subst = '\\1\\2. Select all that apply.\\3\\4\\6\\7MultiResponse"';
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