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