Help for this page
for (@cmd) { $_ = [split "\n", $_]->[0]; }
for (@cmd) { $_ = (split "\n", $_)[0]; }
for (@cmd) { s/\n.*$//s; }