Perl-Programmierer gesucht

[alcaeus]

Hallo Leute,

ich habe hier ein (mehr oder weniger schoenes) Perl-Script vor mir liegen, und moechte gerne wissen, was einzelne Zeilen bedeuten:

Code:

$cmd   = $ARGV[3];

$cmd=~ s/(.*);$/$1/eg;
$cmd=~ s/(.)/"%".uc(sprintf("%2.2x",ord($1)))/eg;

Die erste Zeile habe ich noch verstanden: der Variable "cmd" wird der Wert des vierten Parameters zugewiesen. Aber was bedeuten die anderen Befehle? Ich hab nur rausgefunden, dass es sich um Replace-Functions handelt, aber dann hat die Kombination aus Internet und meiner bescheidenen Logik versagt
Kann mir bitte jemand sagen, was hier gesucht bzw. ersetzt wird?

Und noch was: falls jemand erkennen sollte, woher die Zeilen kommen, erwaehnt es nicht, und an die anderen: fragt mich nicht woher sie kommen.

Greetz
alcaeus

[edit] 3000? [/edit]