in reply to Re: Difference between tr// and s///?
in thread Difference between tr/// and s///?

Your tr/// vs. s/// comparison is very broken. You're using the SAME variable in each iteration. You need to do: 
transliterate => sub { (my $x = $todo) =~ tr/+/ / },
substitution => sub { (my $x = $todo) =~ s/\+/ /g },
just_copy => sub { (my $x = $todo) },

[download]
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

In Section Seekers of Perl Wisdom