\"foo";

##</code><code>##

\"foo$x";

##</code><code>##

use Devel::Peek;

my $x = 'foo';

Dump \'foo';
Dump \"bar$x";

__output__
SV = RV(0x183c90c) at 0x225fe4         
  REFCNT = 1                           
  FLAGS = (PADBUSY,PADTMP,ROK,READONLY)
  RV = 0x225ffc                        
  SV = PV(0x22626c) at 0x225ffc        
    REFCNT = 1                         
    FLAGS = (POK,READONLY,pPOK)        
    PV = 0x1831d04 "foo"\0             
    CUR = 3                            
    LEN = 4                            
SV = RV(0x183c92c) at 0x2252ac         
  REFCNT = 1                           
  FLAGS = (TEMP,ROK)                   
  RV = 0x225150                        
  SV = PV(0x2261a0) at 0x225150        
    REFCNT = 1                         
    FLAGS = (POK,pPOK)                 
    PV = 0x1831cac "barfoo"\0          
    CUR = 6                            
    LEN = 7