echo "1234567890123456" | 
perl -lne 'print"\*"x(length()-4),scalar reverse unpack "A4",reverse'