map { local $_ = $_; s/^[^-]*-//; $_ } LIST