seek(INPUT,$start_offset_target,0); sysread(INPUT,$target_data,$end_offset_target-$start_offset_target+1 ); while ($target_data=~m/$pattern/gi) { $space=''; $c=0; $m = $1; while($m=~/(\n)/gi) { $c+=1; } $space=' ' x $c; $space.=' ' x length($m); $target_data=~s/$pattern/$space/i; }