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