my $example = "<ClientID type="String">A1234BX</ClientID>";
$example =~ /^\s*\<(\w+)\s[\w\"\=]+\>(.*?)\<\//;

my $tag  = $1;
my $data = $2;

# do something with the data