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