$str= substr("0"x$len.$str,-$len);