in reply to Re^3: How to make these reg exp changes?
in thread How to make these reg exp changes?

Honestly, the hash has nothing to do with the problem. 
$neg{$1}

[download]
is just short for 
($1 eq 'o' ? 'i' : 'o')

[download]

In Section Seekers of Perl Wisdom