fork download
  1. #!/usr/bin/perl
  2.  
  3. while (($_=<>))
  4. {
  5. $_ =~ s/u/T/g;
  6. $_ =~ s/f/H/g;
  7. $_ =~ s/s/E/g;
  8.  
  9. $_ =~ s/j/A/g;
  10. $_ =~ s/p/N/g;
  11. $_ =~ s/c/D/g;
  12.  
  13. $_ =~ s/m/U/g;
  14. $_ =~ s/x/O/g;
  15. $_ =~ s/v/F/g;
  16. $_ =~ s/k/I/g;
  17. $_ =~ s/i/S/g;
  18. $_ =~ s/h/W/g;
  19.  
  20. $_ =~ s/o/B/g;
  21. $_ =~ s/d/V/g;
  22. $_ =~ s/w/G/g;
  23.  
  24. $_ =~ s/b/L/g;
  25. $_ =~ s/e/P/g;
  26. $_ =~ s/a/C/g;
  27. $_ =~ s/l/M/g;
  28.  
  29. $_ =~ s/y/R/g;
  30.  
  31. print $_;
  32. }
  33.  
  34.  
Success #stdin #stdout 0.01s 5280KB
stdin
ufsys hji j ujobs isu xmu mpcsy j uyss kp vyxpu xv ufs fxmis jpc ufs ljyaf fjys jpc ufs fjuusy hsys fjdkpw usj ju ku j cxylxmis hji ikuukpw osuhssp ufsl vjiu jibsse jpc ufs xufsy uhx hsys mikpw ku ji j amifkxp
stdout
THERE WAS A TABLE SET OUT UNDER A TREE IN FRONT OF THE HOUSE AND THE MARCH HARE AND THE HATTER WERE HAVING TEA AT IT A DORMOUSE WAS SITTING BETWEEN THEM FAST ASLEEP AND THE OTHER TWO WERE USING IT AS A CUSHION