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


in reply to I'm back, sorta

Welcome back :)

Just to be different I will say my favourite node by you isn't this but instead Functional take 2. Have you ever thought to render that code into a full module available on CPAN? It's a while I'm using your code to strip "evil" HTML from posts in my web applications and I think it deserves its own place on CPAN, for all people should know about such (useful|cool|great) code.

Anyway have a good trip and relax plenty. :)


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g