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


in reply to given/when one case prefixes another

I have several cases that end the same way.
Turn the same way into a procedure, and refactor your code...