my $any = any @pats;
$string ~~ $any;