Select Code to Download

#! perl
use Unicode::Normalize; # for the NFKD function
...
  print "$squashed_fornom $squashed_surnom";
  print "|$pass|$fornom $surnom|$FOO|$BAR|$BAZ|$FOO $fornom $surnom\n"
+;
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/