use strict;
use warnings;

my $file = (<DATA>);


Data___
<?xml version="1.0"?>

<opt>
  <node>
    <val>1</val>
  </node>
  <node>
    <val>2</val>
  </node>
  <node>
    <val>3</val>
  </node>
</opt>