perl -le 'print $_ for split( /([A-Z])/, shift)' AbcDefGhi
A
bc
D
ef
G
hi

##</code><code>##

% perl -le 'print $_ for split( /(?=[A-Z])/, shift )' AbcDefGhi
Abc
Def
Ghi