strfry@argc:~> perl -Mstrict -we 'my$i="Toodles";$i=~s/(Toodles)/\1 is
+ a GENIUS/g;print "$i\n";'
\1 better written as $1 at -e line 1.
Toodles is a GENIUS
[download]

<G> (i can't see stereograms well, but the #! in the __DATA__ looked pretty cool. )

-- strfry()
perl -Mstrict -we '$;=qq.rekcalsxlrePxrehtonaxtsuJ.;$;=~s>x>qq|\x20|>eg;$_=qq.\x0a.;print scalar reverse$;;END{print};'