#! /usr/bin/perl
use strict;
use warnings;

while (<DATA>)  {
    s{;;}
    {;1;}xmsg;
    print;
}

__DATA__
;;;;
;;;;