http://www.perlmonks.org?node_id=1061075
ambrill has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, Thanks for your help. I was closer than i thought…. however, i am struggling to keep the <infoTable> parameter which is included on the same line as <infomationTable…. which i am essentially deleting. Suggestions on how to retain the <infoTable> text would be appreciated. Also, the <?xml line is a bear to get rid of? thanks

#!/usr/local/bin/perl # $file = 'test.xml'; # Name the file open(INFO, $file); # Open the file @lines = <INFO>; # Read it into an array close(INFO); # Close the file open STDOUT, ">$file" or die "cannot open file $!\n" ; # Open t +he file for (@lines) { s#<informationTable.*##; } print @lines; close(STDOUT);
#sample xml file <?xml version="1.0" encoding="UTF-8"?> <informationTable xmlns="http://www.sec.gov/edgar/document/thirteenf/i +nformationtable" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance +"> <infoTable> </infoTable> </informationTable> <?xml version="1.0" encoding="UTF-8"?>