$s = 'a b & &   *   * * * a * * * *& && & xy a';;

$s =~ s[(?<=\W)\s+(?=\W)][]g;;

 print $s;;
a b &&**** a ****&&&& xy a