## *very* simplistic stuff (e.g doesn't deal with nested tags)

my $token     = qr{ (?: \b [A-Z]\w+ \b ) }xi;
my $attrib    = qr{ (?: $token \s* = \s* "[^"]+" \s* ) }x;
my $begin_tag = qr{ < ( $token ) \s* ( $attrib* ) > }x;
my $end_tag   = qr{ </$token> }x;

my $example = q[<ClientID type="String">A1234BX</ClientID>];

my($tag, $attribs, $data) =
  $example =~ m{ $begin_tag (.*?) $end_tag }x;

print "tag     - $tag\n";
print "attribs - $attribs\n";
print "data    - $data\n";

__output__

tag     - ClientID
attribs - type="String"
data    - A1234BX