Simple JAPH

#!/usr/bin/perl
map{y/[a-z]/ /;s/TS/_\//g;print;}<DATA>;
__END__
TSTSTSTSTSsdfsdTSrtytryyTSTSTSTSfgTSdfdfTSfdf
asdyTSsdfsdfsTSsdTSyuiuyTSfggfTSfgTSdfgdTSghj
greoTSsdfssfTSweweTSyuuyTSTSTSTSfgTSTSTSTSert
TSwpTSsdfshTSTSTSTSTSyuiTSfghgfhffTSdfdfTSdfg
TSTSTSsdflTStyutyutrTSyuTScvvcbcvcTSfddfTSert
[download]

Comment on Simple JAPH Download Code

Replies are listed 'Best First'.
Re: Simple JAPH by cchampion (Curate) on Apr 26, 2005 at 12:46 UTC
Before feeling too much proud of what you did, have a look at Structured obfuscation. The beginning of that node looks similar to yours but, as you can see, there is much more work involved ...	[reply]
Re: Simple JAPH by cog (Parson) on Apr 26, 2005 at 10:45 UTC
Though I like it very much, I'd change the beginning of the penultimate line from "wr" to "TS" :-) The result is easier on the eyes :-)	[reply]
Re: Simple JAPH by Booger (Pilgrim) on Apr 26, 2005 at 15:04 UTC
Kinda neat. I was able to pick out the "JAPH" from the DATA block with my eyes.	[reply]
Re^2: Simple JAPH by ff (Hermit) on Apr 28, 2005 at 02:46 UTC
For me too, after reading the code and getting a clue, I put on my stare-at-this-crazy-drawing-and-think-3D hat and slowly it emerged. :-)	[reply]
Re: Simple JAPH by kprasanna_79 (Hermit) on Apr 26, 2005 at 10:29 UTC
Hai Lamp Good Try --prasanna.k	[reply]