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