if(/^.*|^<\/?pre>.*/){$flag = 1;} if(/^<\/body>.*/){$flag = 0;} s///g; if($flag == 2){print;} if($flag == 1){$flag = 2;}