$_ = "ThisIsACamelCaseWorld";
my  @aTemp;
@aTemp =  m/\G[A-Z]?[a-z]*/g;          ## same thing
print join " ", @aTemp;

__END__
This Is A Camel Case World