#!/usr/bin/perl
$on = 1;
while (<STDIN>) {
	$line = $_;
	if (/^#%id=/) {
		chop($id = $');
		$on = 1;
		for (@ARGV) {
			if ($_ =~ /^!/) {
				$on = 0 if $id =~ $';
			} else {
				$on = 0 unless $id =~ $_;
			}
		}
	}
	print $line if $on;
}