Select Code to Download

Select or download this

$ perl -E '$x = "foo"; say for $x x= 2'

Select or download this

BINOP (0x189a938) repeat [1] 
    UNOP (0x189a9c0) null [15] 
         SVOP (0x189aa00) gvsv  GV (0x197dac8) *x 
    SVOP (0x189a980) const  IV (0x197dae0) 2

Select or download this

$ perl -E '$x = "foo"; say for ($x) x= 2'

Select or download this

BINOP (0xecd938) repeat [1] 
    UNOP (0xecd8f0) null [158] 
...
        UNOP (0xecd9c0) null [15] 
            SVOP (0xecda00) gvsv  GV (0xfb0ac8) *x 
    SVOP (0xecd980) const  IV (0xfb0ae0) 2

Select or download this
```
$ perl -E '@x = (@_ = qw( a b )) x= 2'
```

Select or download this

BINOP (0x14b79b8) repeat [4] 
    UNOP (0x14b7970) null [158] 
...
                UNOP (0x13ffc78) rv2av [2] 
                    SVOP (0x13ffcb8) gv  GV (0x13de0d0) *_ 
    SVOP (0x14b7a00) const  IV (0x159ab58) 2