binmode STDOUT, ":utf8";
my @o = ("\x{202d}", "\x{202e}");
print "$o[--$|]$_" for split //,
   'J,ursetk cAanHo tIhDeIrB /Pler';