$ perl -wlpe 's/(;)(?=;)/;1/g'
;;;;
;1;1;1;