my $regex = join '|', map { quotemeta $_ } @keywords;
  $regex = qr/$regex/;