my $find_this = qr/$arbitray data/;
open OLD, $log or die $!;
open NEW, ">$new_log" or die $!;
while (<OLD>) {
    next unless /$find_this/;
    print NEW $_ while <OLD>;
}
close OLD;
close NEW;
rename $new_log, $log or die $!;