my $regex = join "|", map { qr{$_} } split "\n", <