Help for this page
$ perldoc -f rmdir rmdir FILENAME ... that directory is empty. If it succeeds it returns true, otherwise it returns false and sets "$!" (errno). If FILENAME is omitted, uses "$_".
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)