Hallo seth_not@home!
Ich hab's (denke ich) korrekt enteinzeiler-isiert:
@P=split//,".URRUU\c8R";
@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";
sub p{
@p{"r$p","u$p"}=(P,P);
pipe"r$p","u$p";
++$p;
($q*=2)+=$f=!fork;
map{$P=$P[$f^ord ($p{$_})&6]; $p{$_}=/ ^$P/ix?$P:close$_}keys%p
}
p;
p;
p;
p;
p;
map{$p{$_}=~/^[P.]/&&close$_}%p;
wait until$?;
map{/^r/&&<$_>}%p;
$_=$d[$q];
sleep rand(2)if/\S/;
print
und erhalte kein 01.04.2008 :(
prost
Gök!
Viele Grüße aus Frankfurt/Main,
Patrick
--
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?