my $len = 3;
print join ';', (split(/;/), ('') x $len)[0 .. $len-1];