#!/usr/bin/perl -wl
$,=$";
print split/(?=[A-Z])/,"ThisString";
print split/(?=[A-Z])/,"SomeOtherString";
__DATA__
output:
This String
Some Other String