my $pattern = join '|', map quotemeta($_), split ' ', $b;
@common = " $a " =~ /\s($pattern)\s/g;