#!/usr/bin/perl
# 11 BUG

while ($eil=<>) {

if ($eil=~/^$/) { next };

@p=split / /,$eil;
	
for ($i=0; $i<$p[0]; $i++){
	$eil=<>;
		chomp($p[1]);
		while ($eil=~/$p[1]/) {
			$eil=~s/$p[1]// ;	
			}
		print $eil;
	}
}