http://www.perlmonks.org?node_id=1075881


in reply to How can I do this action WITHOUT split?

( my $final_string = $str_with_dash ) =~ s| ( [^.-] ) | $str_no_dash =
+~ / ( . ) /xsg && $1 |xeg;

[download]

In Section Seekers of Perl Wisdom