Up and Down by jonathan camacho

@line = map( { ord } split(//, <>) );
for(<>){
   for $i (0 .. (length($_) - 2)){
       next if substr($_, $i, 1) eq $";
       $line[$i] += 44 - ord(substr($_, $i, 1));
   }
}
print map( { chr } @line);

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page