my $text = "HelloMyNameIsJake"; $text =~ s!(.)([A-Z])!$1 $2!g; print "[$text]";