...;

open(my $filter_fh, "<", "Filter,txt") or die $!;
my @filter_qr = map {qr/(?=\Q$_\E)/} <$filter_fh>;
close $filter_fh;