Somebody Tell Me!

#!/usr/bin/perl -w

$_='($a="\x0a"."?"."ihave"."poop"."E.")=~s/a|e|op//g;'.
'($b="...fubdtvgcO.")=~s/\.{3}/e/;'.
'$c=pack("H6","75704e");$_=$a.$b.$c;y/b-z/a-y/;'.
's/\./ /g;print '.'scalar '.'reverse;';eval;

Comment on Somebody Tell Me!

Replies are listed 'Best First'.
RE: Somebody Tell Me! by alftheo (Scribe) on Oct 10, 2000 at 16:12 UTC
As a start, consider this: `($a = "\x0a" . "?" . "ihave" . "poop" . "E." ) =~ s/a\|e\|op//g; ($b = "...fubdtvgcO." ) =~ s/\.{3}/e/; $c = pack("H6","75704e"); $_=$a . $b . $c; print "$_\n"; y/b-z/a-y/; print "$_\n"; s/\./ /g; print scalar reverse;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

RE: Somebody Tell Me!
by alftheo (Scribe) on Oct 10, 2000 at 16:12 UTC

($a = "\x0a" . "?" . "ihave" . "poop" . "E." ) =~ s/a|e|op//g;
($b = "...fubdtvgcO."                        ) =~ s/\.{3}/e/;
$c = pack("H6","75704e");
$_=$a . $b . $c;
print "$_\n";
y/b-z/a-y/;
print "$_\n";
s/\./ /g;
print scalar reverse;
[download]

[reply]
[d/l]