Select Code to Download

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

# do something with the data