$ perl -le '
    use List::Util "first";
    first { $_->() }
      sub { print 0; 0 },
      sub { print 1; 1 },
      sub { print 2; 1 };
'

##</code><code>##

my $regex = join '|', map quotemeta, @strings;
$regex = qr/^($regex)$/;

##</code><code>##

$string = $1 if $map =~ $regex;