my $re = join '|', @sub;
$re = qr/($re)/;
$str =~ $re;