binmode STDOUT, ":utf8"; my @o = ("\x{202d}", "\x{202e}"); print "$o[--$|]$_" for split //, 'J,ursetk cAanHo tIhDeIrB /Pler';
The actual output will be:
J,ursetk cAanHo tIhDeIrB /Pler
If your terminal has proper unicode bidi support, it should look the same as:
Just Another Perl/BIDI Hacker,
Back to
Obfuscated Code