[Jax.PM] Wake up =)

[iudicium ferat]

> What is wrong with this code?
> > 
> > s{ <!(.*?)(--.*?--\s*)+(.*?)> }{ if ($1 || $3) "<!$1 $3>"; } }gesx;
> > 
> 
> It appears that you are attempting to remove HTML comments.
> One problem I see is that it isn't striping the <! and > from the HTML.

Nope, when used as part of the original code, it hangs on the HTML test case...

> > 
> > BONUS:
> > Where did I steal it from?
> > 
> 
> TPJ Issue 1?


Great guess  :)  But actually this code came from Tom Christenens site at

http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/


(And no, it isnt broken there - I removed a { prior to posting.)

Cheers!
-Sx-