$t=~m!(?:(\d)\D*(?{$s.=$1})){13}!;