Logbuch des Kapitäns Emiliano Bruni

Hier ist, wie wir perlisti erklären unsere Liebe

  #! / Usr / bin / perl-w
 use strict; 

  my $ f = $ [, meine
    $ Ch = 0; sub l (Länge)
  sub r (join "", Reverse Split
 ("",$_[$[])} Sub ss (substr ($ _ [0]
 , $ _ [1 ],$_[ 2])) sub werden {$_=$_[ 0], p
  (ss ($_,$ f, 1)), $ f + = l () / 2, $ f% = l
   (), $ F + + if $ ch% 2; $ ch + +) my $ q = r
    ( "\ Ntfgpfdfal, ATG? Bngbj.
     "naxfpacd ");$_=$ q, $ q = ~
       tr / f [az] / [l-za-k]
         /, Meine @ .. ever = 1 & l
           my $ q = $ Mine
             ; Sub p (
              print
               @ _;
                ) 

  Dollar mir für immer @ 

Der Satz aus der Erstellung und Durchführung des Programms ist als eine Übung für die Schüler Haus verlassen.

Erfüllen auch diejenigen, die eine farbige Version wollte per Post an seine Geliebte geschickt werden.

Aber seien Sie sicher, dass der Name oder die Ihren Kohl wird