my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf";
(my $out=$text2) =~s/^((?:y*.){13}).+$/$_=$1;tr!y!!d;$_/e;
print "$out\n";