How can I avoid Perl::Critic warnings when I process a multi-line string with a filehandle?

Does anyone have a solution to the task of processing a multi-line string one line at a time, othe开发者_StackOverflowr than the string-as-a-filehandle solution shown below?