Select Code to Download

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

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