$barcode = sprintf("%.13s%s", $barcode, "0"x(13-length($barcode)));