$s = sprintf("%-5.5s" , $s) ;