main::regex_sub(438502.pl:40):      print "Code doesn't get run after once.\n";
  DB<1> s
Code doesn't get run after once.
main::regex_sub(438502.pl:41):      my @lengths = ($+[1]);
  DB<1> p scalar @+
5
  DB<2> p scalar @+
3