Netscape ist tod? Aetschibaetsch! Reingelegt!

[Slyh]

Hallo,

s s^s<DATA>se;s (([^\s]))(ord($1)%2?
chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
__END__
uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

Finde ich sehr schön! Aber sag mal, wäre das:
--
s//<DATA>/e;
s/([^\s])/ord($1)%2?chr(ord($1)-5):chr(ord($1)-3)/sieg;
s//$_/ee;
--
nicht besser zu lesen? ;-)

Jetzt hätte ich da zwei kleine Fragen:

• Wohin speichert Perl bei "s//<DATA>/e;" das Ergebnis? Nach $_? Wenn ja,
    wieso funktioniert dann "s/$_/<DATA>/e;" nicht?
• Wieso funktioniert "s/([^\s])/ord($..."
    aber nicht         "s/(.)/ord($..."?

Danke und Gruß
Sl"bekennender RegExp-Dau"yh