[-CodeLayout::ProhibitParensWithBuiltins]
[-ValuesAndExpressions::ProhibitLeadingZeros]
[-InputOutput::ProhibitTwoArgOpen] #if applicable to opendir

##</code><code>##

[-RegularExpressions::RequireExtendedFormatting]
[-RegularExpressions::RequireLineBoundaryMatching]
[-Miscellanea::RequireRcsKeywords]
[-Modules::RequireVersionVar]

[ControlStructures::ProhibitPostfixControls]
allow = if
severity = 1

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)