DB<4> $_=";;;;;;"

  DB<5> 1 while s/;;/;1;/

  DB<6> print
;1;1;1;1;1;