Select Code to Download

  DB<1> my $x = 1

...

  DB<4> p $x
1

  DB<5> p $main::x
1

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

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

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