in reply to Golf: Replacing part of a string with "*"
Here's one to be different:
echo "1234567890123456" | perl -lne 'print"\*"x(length()-4),scalar reverse unpack "A4",reverse' [download]
gratias vobis ago valeteque-v.