Re^2: remove spaces after join operation

[lakssreedhar]

This error Can't modify join or string in substitution (s///) at out.pl line 5, near "s/\s*(\.\(\))\s*/$1/g;" is being shown

[Loops]

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;

Updated to simplify regex as suggested by hdb

[lakssreedhar]

ya its working now