perl -e "$s='JJ..A....PPPP..HHHH...';$s=~s/(.)(\.+)/$1.$1 x length($2)/eg;print $s,$/;"
#            JJJJAAAAAPPPPPPHHHHHHH