$x =~ tr[A-Za-z][]s; 
$x =~ s[(.)][$1 x 3]ge;