%sub = ( frog => 'toad', man => 'boy', woman => girl );
$exp = join('|', keys %sub);

$foo =~ s/($exp)/$sub{$1}/g;