Select Code to Download

file.txt
<root>
<book></book>
<name>Syndey</name>
</root>

#!/usr/bin/perl -w

...
        }

&search_directory($path_to_dir);

<book></book> and also <name>Sydney</name>