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

  DB<2> print ( join "", $t=~/${\ ( '(\d)\D*'x13 ) }/ )
1234512345123