perl -ple"/^</root>/ and map{ scalar <> } 1..3" file.xml >new.xml