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

Beat me to it! 

my $r = reverse $str_no_dash;
$str_with_dash =~ s/[^-]/chop $r/ge;

[download]

In Section Seekers of Perl Wisdom