Yes, looks correct.

You may want to use some XML parser (XML::Twig, for example) to search for data in the XML files if you are not completely sure that internal representation of XML data will not change.

You can also use File::Slurp and read files requiring less lines of code.