Click here to make this your default!

#### open(FILE, "$text_file") || print "Can't open output file1: $text_file\n"; while() { if ($_=~/(.*)<\/table>/sg) {$_=~s/(.*)<\/table>//sg;} $save=$save.$_; } my $file2 = "search_test2.txt"; open(DATA_OUT, ">$file2") || print "Can't open output file1: $file2\n"; print DATA_OUT $save; close FILE; print $save;