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