$foo = 'foo';
$bar = 'bar';
$football = 'football';
($x = $football) =~ s"$foo"$bar"; # $x eq 'bartball'
($x = $football) =~ s'$foo'$bar'; # $x eq 'football' (no change)