my %swaps = ( 
    foo => 'bar',
    bar => 'foo'
);
$str =~ s/(foo|bar)/$swaps{$1}/g