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


in reply to Re: Live and Die
in thread Live and Die

#!/usr/bin/perl package ::Job::Bug::Hack::CLEAN::CODE; sub present::a{ $_=(caller())[//-//]; $_=~s/:+/\nGood /g; "$_\n\n" } print a present;