DB<1> $_ = "This is a teeeext for testting";

  DB<2> ;/(?<char>e*)/   and print "'$+{char}' is matched pattern at pos $+[0]\n";
'' is matched pattern at pos 0

  DB<3> ;/(?<char>e{0})/   and print "'$+{char}' is matched pattern at pos $+[0]\n";
'' is matched pattern at pos 0

  DB<4> ;/(?<char>e+)/   and print "'$+{char}' is matched pattern at pos $+[0]\n";
'eeee' is matched pattern at pos 15

  DB<5> ;/(?<char>e{1,32766})/   and print "'$+{char}' is matched pattern at pos $+[0]\n";
'eeee' is matched pattern at pos 15

  DB<6>