Hilfe, was tut dieses Skript!!!

[Michael]

Hallo,

bin gerade dabei mich in Perl einzuarbeiten und bin dabei über dieses Skript gestolpert! Kann mir jemand erklären, was genau es tut? Möglichst so, dass auch ich es verstehen kann!

Danke, schon mal im vorraus!!

#!/usr/bin/perl -n
                     printf "Serial: %s  Type: %s  Code: %s\n",
                         map {
                             tr/a-zA-Z0-9+-/ -_/;
                             $_ = unpack 'u', chr(32 + length()*3/4) . $_;
                             s/\0+$//;
                             $_ ^= "C" x length;
                         } /.([^.]+)/g;