perl one liners