#!/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 the file

for (@lines) {
	s#<informationTable.*##;

  }
 
   print @lines;

  close(STDOUT);