#!/usr/bin/perl -w

use strict;

while (<>) {
	print $_ unless (
		m/^media .* last$/ ||
		m/^ ID .* time $/ ||
		m/^-*$/
	)
}