DB<1> my $x = 1

  DB<2> p $x

  DB<3> $x = 1

  DB<4> p $x
1

##</code><code>##

  DB<5> p $main::x
1

##</code><code>##

  DB<1> 'a' =~ /(.)/

  DB<2> print $1

  DB<3> 'a' =~ /(.)/ && print $1
a
  DB<4>

##</code><code>##

  DB<5> 'a' =~ /(.)/ && $g = $1
  DB<6> print $g
a
  DB<7>