Thanks, johngg. This unfortunately does not help because of my wanting to avoid the command line and I also want to adhere to Perl Best Practices, (PBP)! I have changed the $INPUT_RECORD_SEPARATOR to undefined on purpose so that I may slurp in an entire file at a time, because this code is a small part of a script and this is more efficient than rewriting the file a line at a time. If you'll notice, I am using the English module within this code and I originally used ${^MATCH}, (which requires the /p expression modifier), instead of $1 but it also did not work! Help still needed!
P.S. My apologies for a mistakenly created subject line which does not really help!