$_ =~ s/\x5B\x50\x5B\xff\x02/\x0A/g;
$_ =~ s/\x5B\x50\x5B\xff\x03/\x0D/g;
$_ =~ s/\x5B\x50\x5B\xff\x04/\x20/g;
$_ =~ s/\x5B\x50\x5B\xff\x05/\x19/g;
>
> da du in der ersten Zeile bereits alles ersetzt hast, was in den nächsten drei Zeilen gesucht ist. Auch ein `chomp $_;`{:.language-Perl} vor der Ersetzung könnte eventuell helfen.
Naja, ohne Zeilemumbrüche....
Aber schau dir den Code nochmal an, er ersetzt schon jedesmal was anderes
Struppi.
--
[Javascript ist toll](http://javascript.jstruebig.de/) (Perl auch!)