my $pattern = qr/  ...whatever was here before...  /;

##</code><code>##

1 while $target_data =~ s/$pattern/' ' x length $1/ge;