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]