#!/usr/bin/perl -w
use strict;
use Devel::Peek;
my $x = !1;
Dump $x;

$_ = 'foo';
my $y = /x/;
Dump $y;

my $z = "";
Dump $z;
__END__
SV = PVNV(0x8143040) at 0x81293cc
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,POK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x8124658 ""\0
  CUR = 0
  LEN = 1
SV = PVNV(0x8143058) at 0x8129384
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,POK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x8126180 ""\0
  CUR = 0
  LEN = 1
SV = PV(0x811fab8) at 0x81293c0
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x8149ce0 ""\0
  CUR = 0
  LEN = 1