...
  DB<1> s
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 join ":",@+
12:10:10:10:12
  DB<3> s
main::regex_sub(438502.pl:42):      my $new_count = 0;
  DB<3> p @lengths   
10
  DB<4> p join ":",@+
23:22:23