library(stringr)
x <- c( "15 Aguascalientes - Ent. Cd. de Los Niños                             AGS", "3   Aguascalientes - Zacatecas                                       MEX-045")
matches <- str_match(x, "^(\\d+)\\s+(.*?)\\s+(\\S+)$")[,-1]
matches