in reply to How can I do this action WITHOUT split?
( my $final_string = $str_with_dash ) =~ s| ( [^.-] ) | $str_no_dash =
+~ / ( . ) /xsg && $1 |xeg;
An organised event
A traditional gathering
With family and friends
I don't celebrate the New Year
Adjusting my clocks for the Leap Second
I can't remember
Results (196 votes). Check out past polls.