$ perl5.8 -e '$x = "a b c d"; $a = "blah"; $b{$a} = "foo"; $x =~ s/a b/$b{$a}/; print "$x\n"'
foo c d