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