''=~('(?{'.('`'|'%').('['^'-').('`'|'!').('`'|',').'"'.('['^',').('`'| '!').('['^')').('`'|'.').'+(\\"'.('`'^'"').('['^')').('`'|')').(('[')^ '/' ).( '`' |'!').('`'|')' ).( '`' |'.').('{'^'[').('`'| ')' ).( '['^'(').('{'^'[').('`'|'.' ).( '`' |'/').('['^'/').('{'^'[').("\["^ ',' ).( '`'|'/').('['^')').('['^'/').("\`"| '(' ).( '{'^'[').('`'|'!').('`'|'.').('{'^'['). ((( '`' ))|'/').('`'|',').('`'|'$').("\{"^ '[' ).( '[' ^'(').('`'|'(').('`'|'/').('`'|'%') .(( '!' )). '\\",\\"'.('{'^'/').('`'|'(').("\`"| '%' ).( '[' ^')').('`'|'%').('{'^'[').('`'|"\!").( '['^ ')' ).( '`'|'%').('{'^'[').('`'|'.').('`'|'/').( "\{"^ '[' ).( '`'^'!').('`'|'-').('`'|'%').('['^"\)").( ('`')| ')' ).( '`'|'#').('`'|'!').('`'|'.').('{'^'[').('`'| ')').('`' |(( '.' ))).('`'|'&').('`'| ')').('`'|'$').('`'| '%' ).( '`'|',').(('[')^ '(').('{'^'['). ((( '`' ))|')').("\`"| '.').(('{')^ '[' ).( '`'^('"')).( '`'|'!'). ((( '`' ))|("'")).( ('`')| '(' ).( '`'|"\$").( "\`"| '!' ).( '`'|"\$"). ('!\\",\\"').( '{'^',').("\`"| '%') .+( '{' ^('[')).( ( '`')|'(' ) .('`' |(( '!' ))).('['^'-' ) . ( ( '`')|'%').('{'^ '[' ).( '['^'/') . ( ( ( '`'))| '(' ).( '`'|'%') . +( ( ( ( '`'))) |(( '-' ))).('{' ^ ( ( ( '['))) ).( '[' ^'(').( '['^'.').('[' ^')').('['^')'). +( (( '`' ))| '/'). ( ( ( '[' ))^ ( ( ( ( ( '.' ))) ) ) ) . ((( '`' ) ) | ( '.' )). ( ( ( ( ( '`' ))) ) |+ '$'). +( ( '`' )|+ ( ( ( '%' ))) ) . ((( '`' ) ) | '$' ).( ( ( ( '{' ))) ^'[').('`' | ( ( ')' ))) . ('`'|'.').('{' ^ '[' ).( ( '[') ^'/' ) . ( '`' |(( ( ( (( ( ( '(' ))) ) )) ))) .+( ( (( '`' ) ))| '%' ).('`'|')').( ( '[' )^+ ( ')')).('{'^ ( '[' )). ( '[' ^(( ( ( '/' ))) ) ).( '`' | '!' ).( ( ( '`' ))| ( ( '.' ))) . ( '`' |(( ( ( '+' ))) )).('['^'(' ).+ '!' .(( '\\')).'",\\"'.('`'^')').('{'^'[').('['^'(').('['^'+').('`'|'%').('`'| '!').('`'|'+').('{'^'[').('`'|'"').('`'|'%').('['^'/').('['^'/').('`'| '%').('['^')').('{'^'[').('`'^'%').('`'|'.').('`'|"'").('`'|',').('`'| ')').('['^'(').('`'|'(').('{'^'[').('['^'/').('`'|'(').('`'|'!').('`'| '.').('{'^'[').('['^'/').('`'|'(').('`'|')').('['^'(').('{'^'[').('['^ '-').('`'|')').('`'|',').('`'|',').('`'|'!').('`'|')').('`'|'.').('{'^ '[').('`'^'"').('['^'.').('['^'(').('`'|'(').'!\\")['.('['^')').("\`"| '!').('`'|'.').('`'|'$').'('.('^'^('`'|'*')).')],\\$/"})');$:='.'^'~';

Replies are listed 'Best First'.
Re: Baghdad Bob
by crenz (Priest) on Apr 25, 2003 at 08:30 UTC

      Yes, source program follows.

      use Acme::EyeDrops qw(sightly); my $src = <<'GROK'; warn+( "Britain is not worth an old shoe!", "There are no American infidels in Baghdad!", "We have them surrounded in their tanks!", "I speak better English than this villain Bush!")[rand(4)],$/ GROK $src =~ tr/\n//d; print sightly( { Shape => 'mss', Regex => 1, Compact => 1, BorderGap => 1, BorderWidthLeft => 3, BorderWidthRight => 3, BorderWidthTop => 2, BorderWidthBottom => 8, SourceString => $src } );

      The 'mss' shape is not yet in the Acme::EyeDrops distribution; I will add it to the next release.

Re: Baghdad Bob
by adamcrussell (Hermit) on Apr 25, 2003 at 17:59 UTC
    Very nice!! If I may ask....... How long did this take? Did you have any particular inspiration(other than the man himself? :) Not to reveal any spoilers too early but can you elaborate on how one designs such a beautifully obfuscated work?!?!

      About one hour. Most of that time was spent creating the mss shape by sticky-taping a piece of plastic onto the screen with a tracing of this photo on it, then using vi to create the shape. I have experimented with JavE but have yet to find a tool that produces a better result than the time-honoured sticky-tape the plastic to the screen technique. If anyone knows of a cool tool, please let me know.

      As for inspiration, mainly the man himself, who I find absolutely fascinating for some reason.