$ perl -MDevel::Peek -le 'my @x = /abc/; Dump(@x)' SV = PVAV(0x51f85b346e78) at 0x51f85b3c66b8 REFCNT = 1 FLAGS = () ARRAY = 0x0 FILL = -1 MAX = -1 FLAGS = (REAL) $ perl -MDevel::Peek -le 'my @x = scalar(/abc/); Dump(@x)' SV = PVAV(0x579bb31a2e38) at 0x579bb31c86a8 REFCNT = 1 FLAGS = () ARRAY = 0x563bc3d01720 FILL = 0 MAX = 3 FLAGS = (REAL) Elt No. 0 SV = PVNV(0x579bb31a1f40) at 0x579bb31a15a8 REFCNT = 1 FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK) IV = 0 NV = 0 PV = 0x579bb31cd6e4 ""\0 CUR = 0 LEN = 10