perl -e '$!?fork:s,,=]=>%-{<-|}<&|`{,;y< -/:-@[-`{-}><`-{/" ->; print "$_\n"'