Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    ; ; $# or $#  ; print "\n" } }# or # or # ore # nor # or # oar # or #
    ; # or { # } } # { # xor # nor # or # oar # } orr # ore # xor # nor #
    
  2. or download this
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
    + sig
    map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
    +" );