my $pattern = join '|', map quotemeta, @lines;
$pattern = qr/^(?:$pattern)$/;