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