use strict;
use warnings;

my $str = "The quick & the dead.";

$str =~ s/(\W)\s+/$1/g;
print $str;