Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Emotijaph :(

by teamster_jr (Curate)
on Aug 15, 2006 at 14:04 UTC ( [id://567471] : note . print w/replies, xml ) Need Help??


in reply to Emotijaph :)

much too happy
try this:
#!/usr/bin/perl {;$ _ =q(Ju st a nothe r sad P erl h acker ,); s [ \s {2,}] {}xsg ;};$# =$_ ; {;s(: )(: : ];);} print $=;;
a update: Actually for some reason i was just reminded about a story about two pubs across the road from each other near southampton, "the happy cheese" and "the sad cheese". The sad cheese was always empty and had to shut down.