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