#!/usr/bin/perl -anF';' # transpose lines, see perldsc(1) push @rows, [@F]; END{ for $i ( 0..scalar( @{ $rows[0] } ) - 1 ) { for $rr (@rows) { $rr->[$i] =~ s/\n$//; print $rr->[$i], ";" } print "\n" } }