#!/usr/loca/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Simple;

my $xs  = new XML::Simple();         # Instantiate new XML Parser
my $template = $xs->XMLin( *DATA );  # Parse inline XML file
print Dumper $template;
exit;

__DATA__
<?xml version='1.0' standalone='yes'?>
<RULE output_format="pdf" lsog_version="lsog5">
  <SERVICE_REQUEST>
    <SOMETAG min_length="25" max_length="60">Some value</SOMETAG>
    <ANOTHER_TAG min_length="0" max_length="8">another value</ANOTHER_TAG>
  </SERVICE_REQUEST>
</RULE>