perl -i.bak -ple'$\ = $.%5 ? ";" : $/' file