[0] Perl> printf "************%4.4s\n", '5424123412345678';;
************5424