in reply to remove spaces after join operation
print join(' ',@first_sentence) =~ s/\s*([.()])\s*/$1/gr;
i am 2(but).how
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
my $txt = join ' ',@first_sentence;
$txt =~ s/\s*([.()])\s*/$1/g;
ya its working now
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (531 votes). Check out past polls.