Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Txet Maglning Glof, Ayobndy?

by Roger (Parson)
on Sep 16, 2003 at 07:55 UTC ( [id://291755]=note: print w/replies, xml ) Need Help??


in reply to Txet Maglning Glof, Ayobndy?

Out of interest, I did a simple script to reverse the order of the letters (from 2nd to 2nd last), it's not random, but it does make the text look mangled...

$s="According to a researcher at an English university"; print qq{@{[map{@:=split//;@:[1..$#:-1]=reverse@:[1..$#:-1];join"",@:} +$s=~m/(\w+)/g]}\n};
The output has translated the string

According to a researcher at an English university

to the new string

Anidroccg to a rehcraeser at an Esilgnh utisreviny

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://291755]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2024-03-28 18:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found