http://qs1969.pair.com?node_id=56137

'% * % % * % %<> * % ~ * % % * % * * % * * * % % * * % * % *<> * % ~ % % % * % * * * % * % % % % * % % % % % % * % % * % % * % % ^ * % % % % *[] % % * * % * * % % % % * % % % % % % * * % * * @ * @ % * % % % ^ % * % * % * * % % * % <> % % % % * % %() % % % * * * % % * % % * * % * * * * % * * % % * * * % * * * % % * % % *[]<> % % % % * % * * * % % *<> % * * % % % * * % * * * \ * %\ * * * %/ \ # % * * % % % *\ * /\ * *// % %\ <>\ // % %/ % \// % * % * * *\ \|| \ \/ / % %// \ \ *\ /<> %// %// % %<> * % * %\ \ | | ||// % || // \// % // * * * % %{} % * ----\ \ | / %||// / ---/ / * % % * % * *\ ____\ \| | / / / /----/ * % \ ----\ | / // / \ \ / /' =~m/(.*)/s;$_=$1; s![-\\|_/\s]!!g ;%e=('%',0, '^',132918, '~'=>18054, '@'=>19630, '*' =>0b01, '#'=>13099, '[]'=>4278, '<>'=>2307, '{}'=>9814, '()',2076); for $a(keys %e){$e{$a}= sprintf"%b" , $e{$a};} $y= qq{(}.join( '|',map "\Q$_\E" ,keys %e).qq{)};s/$y /$e{$1}/gex;print pack"B*",$_;
Bored in a meeting...

Replies are listed 'Best First'.
(redmist) Re: Apologies to Joyce Kilmer
by redmist (Deacon) on Feb 03, 2001 at 05:29 UTC
    I dunno, clint, that's a mighty fine program there. I would say that it rivals even the Southern Dogwood.

    redmist
    Silicon Cowboy
    redmist::webnode
      Thank you! *blush*

      The best part I haven't yet posted: the program which generates the code to begin with. :) It needs some cleaning up though.

Re: Apologies to Joyce Kilmer
by Anonymous Monk on Feb 08, 2001 at 04:03 UTC
    This thing sprang all kinds of gears when I ran it does it need editing?? Jeff
      You'll have to be a _little_ more specific. It's certainly for 5.6 only. (Some have suggested "require 5.6.0;" should be inserted but it messes with the lines. :) But otherwise its run fine on several ~5.6.x builds.