open(my $remvrfh,'<:encoding(UTF-8)',$remvr)
		or die("Can't open input file \"$remvr\":$!\n");