#!perl use strict; open OUT,">test.xls" or die "$!"; while (){ s/;;/\t/g; print OUT; } close OUT; __DATA__ abd;;sasa;;trre,dsa;;sdas;;dsss abd;;sasa;;trre,dsa;;sdas;;dsss abd;;sasa;;trre,dsa;;sdas;;dsss