perl -ple'$\ = $. % 5 ? ";" : $/' infile > outfile

##</code><code>##

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

##</code><code>##

while (<$fh>) {
    chomp;
    print $_, $. % 5 ? ";" : $/;
}