my @subst = map { s/\s+/_/g } @list;