Ah, is your version of Perl too old to support the /r modifier? It wont work without it. I Suppose:

my $txt = join ' ',@first_sentence;
$txt =~ s/\s*([.()])\s*/$1/g;
print $txt;
[download]

Updated to simplify regex as suggested by hdb