# [Perl 5] `-n`, <s>44</s> 37 bytes <!-- language-all: lang-perl --> /./&&!$k{lc$&}++&&print$_,$"for/\w+/g [Try it online!][TIO-kr3tny60] [Perl 5]: https://www.perl.org/ [TIO-kr3tny60]: https://tio.run/##DcPRCkAwFADQX7m0bmnYg7z4Bo8eRWJY1u6alQf5dZdTx@tga2ZVKsREHLedBT5SIvpgXBRjLtKVguovqTbmluiAYRyg/EG366Bh@ldgTYxWw0LbCU32ko@G3MmF@wA "Perl 5 – Try It Online"