Help for this page

Select Code to Download

Select or download this

%dictionary = (foo => 'bar',
               baz => 'w00t');

$str =~ s[$_][$dictionary{$_}] for keys %dictionary;