Post History

# [Perl], 223 bytes

Reads single word from stdin. Prints rotated word.

```
perl -ple'$n=length;$a=$_;$n==y/HINOSXZlosxzMWbqdphymwnu/HINOSXZlosxzWMqbpdyhwmun/||$n==($_=$a)=~y/AHIMOTUVWXYbdilmopqvwx/AHIMOTUVWXYdbilmoqpvwx/||($_=$a)=~y/BCDEHIKMOWXbcdflmopqtwx/BCDEHIKWOMXpcqtlwobdfmx/&&0and$_=reverse'
```

Comments:
```
perl -ple'
    $n=length; # "y///" must replace this many characters to succeed
    $a=$_;     # save copy of original input

    # try each replacement type until one succeeds
    # restore input from saved copy before 2nd/3rd attempts
    # no need to check length on 3rd attempt as it must succeed
    $n==y/HINOSXZlosxzMWbqdphymwnu/HINOSXZlosxzWMqbpdyhwmun/ ||
    $n==($_=$a)=~y/AHIMOTUVWXYbdilmopqvwx/AHIMOTUVWXYdbilmoqpvwx/ ||
        ($_=$a)=~y/BCDEHIKMOWXbcdflmopqtwx/BCDEHIKWOMXpcqtlwobdfmx/

    # if lake succeeds, shortcircuit, else reverse the string
    && 0
    and $_=reverse
'
```


[Try it online!][TIO-mmlpakwz]

[Perl]: https://www.perl.org/
[TIO-mmlpakwz]: https://tio.run/##bVVNb9swDL33VwRBVrTYhvSyy4oMSBsDNgpFh37I7dANdZUsASRLbpzKKYL99GUiKdne0JPMp/co8omC7eJFfTnYl3VZLwfDD5vB52@D4afRz/OjUTE5Oz86Gf08nYxPvv8YPn48HZ8fRuVELcpf9ep89DTxNB9PduM0m/Pr/EGZTfPGRFFJu9ppV27/2RCsKqzcrZzeluP9HpQ@@2T0dDr5vRtP04zxm9s7kd8Xcq20sdWra/qwLACuLMD7fU96cTlL0uyKcZEXz3KJ2tqTAi44y@1zVStnCrnUzfj4@OyplF7/snhdvGwWh8MwzWbJcPB18J2@Ho@Gl2nCCPFfAhEeAY7xLBEZAbOEZYCw6T0B91OGcZJcESDgC5DsMiLwhcgNATcZafic4jmd4uNrAq5bhM9CDvjyyDxjMekcYj6NOacc4zTup3z4aTBktPBU0IIHcxFFAkV4HAJYgkcgGwKQH@J4LPQAsYj7AmPR2YGFi9YOFuyAekjha@gqCvXBLpBaz1jwDNokj8gzwZNYaUJxdIgFh6ACcsDX5ONiXVAs1xJjZQJQGVXB4dIoCatVxsKKDGI6YurAdB1TB6YD5kVMeeEzgNJvY@wM6rQhmWeDyu8iyShiKUM0vwae30GiX4nZ5osJW2ZISTnh/FAItWAaihvSNVHWkKrBaY/VX1L1zzF@phiMwxishNgftiFk4wtCzjJq6hjH5urQRPvIwhuDJcR4syvwFgHv7g4Q1W9bhbZVMMqFVdPLmhJxSlMCflOqznG8vvY2kNQ70IXrDDwViCoy61iIWhLSndC7AdT2boiYrdag1rgyurfVBhAcPJrRMGBxNHEU42gSsxtJ2a811m7DSKKJyFyFLmwnlT03gjc2yLqBkTQwVZyUMDeehHUjC3sBBOcgtADT4bG6HYFlGIE6cpY0na5/A92DIue7B0fMZdt3TYhpEROR7j3p/pjEsXFxFDPm/1UifyjkSunS/0M2W9fs3kj9tmp0uSmk2Tq1s9VDzq75XGQpKN//dQXH3KutjFbrQt7n4u72hrMsneKrfP@vFV7q@78uvAydi4I5adJMVTwewwuVpcZqUbHc0SVxC1DhmBS5pgtzObNCVyCVnC7vv2yPR3@Mrdem3Bw@W/UX "Perl 5 – Try It Online"