my @values = split ';', "123;abc;456;def;123;;123";

##</code><code>##

print FILE "$_,\n" foreach @values;