#!/usr/bin/perl -w

use strict;

use constant STRING   => 'clintonesque';
use constant TO_MATCH => qw(
  Clinton
  Bush
  Reagan
);

my $regex = join '|', map { quotemeta } TO_MATCH;

my ($first_match) = STRING =~ /($regex)/i;

print $first_match;