http://www.perlmonks.org?node_id=1046778


in reply to Re: Extracting multiple rows in a text file with a regex.
in thread Extracting multiple rows in a text file with a regex.

I'd move the flip-flop operator to the top of the loop. Testing for "Name", while the "flip" didn't "flop" is useless.

Additionally I'd either make the second "if" an "elsif" or leave the "if" block with a "next" in order not to check more than required.


s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e