cat
dogwhisperer
umbrella
mother
sun

##</code><code>##

dog
sun
moon
umbrella
rain

##</code><code>##

cat
dogwhisperer
mother

##</code><code>##

open(RANDOM,"<",$frandom) or die("could not open first file!");

my @r_contents = <RANDOM>;

close(RANDOM);

open(FILTER,"<",$ffilter) or die("could not open the second file!");

while(<FILTER>)
{
	chomp;
	my $line = $_;
	@r_contents = grep(!/^$line$/,@r_contents);
}

close(FILTER);

print @r_contents;