$agent =~ s/(?<!^)([A-Z])/ $1/g;