Select Code to Download

<sourcetype>
  <name>G1</name>
...
    <rule>['^(</xyz>)']</rule>
  </rules>
</sourcetype>

my $xml = new XML::Simple( KeyAttr=>[] );
my $data = $xml->XMLin( $config_file );
...
{
  print "  " . $sourcetype->{name} . "\t\t" . $sourcetype->{desc} . "\
+n";
}