Adding other perl one-liners