Help understand Perl script(s)

Hi,

need some help to understand what this Perl script do. The guy who made it is probably dead since it’s so old, but we need it.

Can u guys help? 🙂

I’ve censored stuff.
If someone could remake this script over to another language used today, that would be great.