perl -e ';
eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'
that prints out the same as you...
.2 enil e- ta )?"just" daol ot togrof uoy spahrep( "just" egakcap aiv
+"rila" dohtem tcejbo etacol t'naC
Wait a minute, I've got what was the problem, we must call the file exactly as 'obs4.pl' and call it by put the './obs4.pl' to obtain the result ...
but ... buff ... :'( ... and I was thinking that the result was an homophonic cipher ... to be decoded
cheers
perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'
|