($string = sprintf(qq(%-12d),$string)) =~ s/ /0/g;