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

##</code><code>##

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