Felicidades

#!/usr/bin/perl -w                                  FELIZ DÍA DEL AMOR Y 
use strict;                                              LA AMISTAD!!!

     my$f=           $[;my
   $ch=0;sub       l{length}
 sub r{join"",   reverse split
("",$_[$[])}sub ss{substr($_[0]                     Te deseamos que te la pases
,$_[1],$_[2])}sub be{$_=$_[0];p                      muy bien con tus seres
 (ss($_,$f,1));$f+=l()/2;$f%=l                      Queridos, amigos y enemigos.
  ();$f++if$ch%2;$ch++}my$q=r
   ("\ntfgpfdfal,thg?bngbj".                            
    "naxfcixz");$_=$q; $q=~
      tr/f[a-z]/ [l-za-k]                                 Recuerda :

        /;my@ever=1..&l
          ;my$mine=$q                                 El amor No cuesta....
            ;sub p{                                     
             print                                  Los pañales Son los Caros!   

              @_;
               }                                              @_@
                          

be $mine for @ever                                                         

Posted in: