my $pattern = $b; # so as not to bash $b
$pattern =~ s/\s+/|/g;

@common = " $a " =~ /\s($pattern)\s/g;