$_-/\pL/?push@_,$&:unshift@_,$&for<>;print@_