Help for this page

Select Code to Download


  1. or download this
    @'={$}=>,{}=>0x70,*,,0x6A,$={$$}=>0x68,*,,0x61,};
$..=chr$_ foreach sort keys%{@'};
$_=$.,s<^.*(.)(.)(.)(.)>@$2$4$3$1@.print;
  2. or download this
    C:\>perl -e "$, .= qq[\x00hjap]; print $,;"
 mult
...
 hjap
C:\>perl -e "$; .= qq[\x00hjap]; print $; ;"
  hjap
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/