Hi, awesome guys, answer was above

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

Thanks.