Moin,

Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. [...]

und hier mein Beitrag nur fuer dich: ;-))

sub Bio() {  my @Bio = map{ord}split//=>q
[nqj¹Dbf·DufºD7 ]; @_= map{ord}split//=>q
            !Bio Bio Bio Bio!
  ;map{chr}map{$_+$|---102+shift} @Bio}
             ;print for Bio;

Viele Gruesse,

n.d.p.