use List::Util qw(first);
  my $matched = first { $var =~ $_ } @pats;