DB<1> print "aaa" =~ /(a+){1}+a/

  DB<2> print "aaa" =~ /(a+){1}a/
aa
  DB<3> print $]
5.014002