DB<1> $t="12345Y"x10

  DB<2> $a="";   $a.=$& while $t=~/\d/g and length($a)<13;   print $a
1234512345123