my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf";
$text2 =~ s/y//i;
print substr ($text2,0,13);