Что-то вроде этой подстановки в регулярном выражении perl ставит пробел перед каждой группой заглавных букв или цифр.(В этом случае вы также хотите обрезать пробел перед строкой.) Полагаю, вы не хотите, чтобы она разбивалась, например: 45thStreet to 4 5th Street
Буквы, в которых я менее уверен.1005 *
s/([A-Z]+|[0-9]+)/ \1/g
Я создал шаблон, который не соответствует началу строки моего личного развлечения:
s/([^\^])([A-Z]+|[0-9]+)/\1 \2/g