Strip ZNC playback from irssi logs

processlogs.pl

#!/usr/bin/perl
# Process logs for stats

my $znc_playback = 0;
while (my $line = <>) {
    if($line =~ /^[0-9]{1,2}:[0-9]{1,2} < \*\*\*> Buffer Playback\.\.\.$/) {
        $znc_playback = 1;
    } elsif($line =~ /^[0-9]{1,2}:[0-9]{1,2} < \*\*\*> Playback Complete\.$/) {
        $znc_playback = 0;
    } else {
        print $line unless $znc_playback;
    }
}