obfuscated ColonelPanic I am having too much fun, but here is another one: <code> #!/usr/bin/perl $_=q|trd␟KVO99Rhlokd:trd␟GSLK99O`qrdq:#o<GSLK99O` qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqd␟bk`rr<!bncd!= '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?( $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD( $AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6 </code> <p>Ok, string mangling is rather unoriginal, but observe how small changes can lead to a very different result:</p> <code> #!/usr/bin/perl $_=q|trd␟KVO99Rhlokd:trd␟GSLK99O`qrdq:#o<GSLK99O` qrdq,=mdv'cde`tks^g<=Zrtaz#^<rghes:#^%%'r.[Zcnv mkn`c[\..+du`k(\|+&csdws&\(:fds'!gsso9..vvv-odq klnmjr-nqf.>mncd^hc<#^Z/\!(<}.;oqd␟bk`rr<!bncd!= '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?( $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD( $AUTOLOAD=~s/\D//gr);}&split9join9chop75chop88; </code> <p>And there are many other possibilities, too.</p> <p>I have to credit Athanasius for his help on this one.</p> <div class="pmsig"><div class="pmsig-27571"> <br><br>When's the last time you used duct tape on a duct? --Larry Wall </div></div>