Help for this page
my $change_next; while (<>) { ... } print; }
perl name_of_script < old_file.xml > new_file.xml