perl -lpe'BEGIN { $/ = "\n    " } $\ = y/\n// ? $/ : $"'