DB<8> $re = qr/{0,3}/

  DB<9> p "" =~ $re

  DB<10> p "{0,3}" =~ $re
1
  DB<11> p $]
5.032001
  DB<12>

  DB<13> use warnings; use strict; my $re = qr/{,3}/

  DB<14>