Не понимаю что в этом скрипте такого необычного, оригинального, невыполнимого я просмотрел весь текст по первой ссылке и ничего подобного не нашел, это наверно типа проверка, кто увидит что это просто набор скрипов и ничего больше(про полезность этих скриптов ничего не говорю), а кто будет продолжать соглашаться что они генеальны и невыполнимы. :/

А вот такие казусы:
"$dotdot"."$destination"
Без коментариев...

our $GRID||= '100:100';
ну почему не написать нормально, зачем туда добавлять логическое или?
our $GRID= '100:100';

$line =~ m/(\w\w\w)\s+(\w\w\w)\s+(\d{1,2})\s+(\d\d):(\d\d):(\ d\d)\s+(\d{4})/;
"Оптимальное" регулярное выражение (как минимум скобки в нём абсолютно не нужны)
$line =~ m/\w{3}\s+\w{3}\s+\d{1,2}\s+(\d\d:){2}\d\d\s+\d{4}/;

print "USER ${loginid}\015\012";
В этом скрипте очень часто использовался данный метод вставки переменных, хотя его безполезность очевидна.

while (!($reply eq $reply2));
почему не использовать ne
while ($reply ne $reply2);

/^(.*)([ \)]+)syslog( *)\(([ ])*([a-zA-Z_])+([a-zA-Z0-9_()])*([ ])*,([ ])*([a-zA-Z_])+([a-zA-Z0-9_()])*([ ])*\)(.*)$/
Ещё одна група "Оптимальных" регулярных выражений, я даже раскрасил чтоб вы видели их так же как я. И что же у нас получается после 2x минутной оптимизации?
/^.*[ )]+syslog *\( *[a-z_]+[\w()]* *, *[a-z_]+[\w()]* *\).*$/i
А вот маленкая мелочь: в первой части РВ скобка в наборе символов экранируется, а во второй нет, странно...

Кодит неплохо, но каждый файл в разном стиле, может не он один писал

Да простит меня Perl Underground. Аминь. © KSURi