ls -l | perl -ne 'if($.> 1){@F=join(";",split(/\s+/, $_, =9));chomp(@F); print @F; print";\n";}' >out1.txt