$
$
$ # display the contents of the input data file
$
$ cat input
Subject  Condition     Fp1            Fp2           FpZ
 S1     mixedneg    235.012        125.65        548.233
 S1     mixedneut   212.1          548.215      1548.2
 S1     pureneg     1578.22         15.25       1654.2
 S1     pureneut    4878.2         512.448       545.88
 S2     mixedneg    5465         87465         46984
 S2     mixedneut    545          7498          5136
 S2     pureneg      587          8798          6516
 S2     pureneut     874          8730.39        879
$
$
$ # Perl script to pivot the input data
$
$ perl -ane 'BEGIN {$fmt = "%-15s"}
            if ($. == 1) {
              $sub = $F[0];
              @items = @F[2..$#F];
            } elsif ( grep { $F[0] eq $x[$_][0] } 0..$#x ) {
              push @{$x[$#x]}, [ $F[1], [ @F[2..$#F] ] ] ;
            } else {
              push @x, [ $F[0], [ $F[1], [ @F[2..$#F] ] ] ];
            }
            END {
              printf ($fmt, $sub);
              foreach $itm (@items) {
                foreach $i ( 1.. $#{$x[0]} ) {
                  printf ($fmt, "$itm$x[0][$i][0]");
                }
              }
              print "\n";
              foreach $i ( 0..$#x ) {
                printf ($fmt, $x[$i][0]);
                foreach $k ( 0.. $#{$x[0][1][1]} ) {
                  foreach $j ( 1..$#{$x[$i]} ) {
                    printf ($fmt, $x[$i][$j][1][$k]);
                  }
                }
                print "\n";
              }
            }
           ' input
Subject        Fp1mixedneg    Fp1mixedneut   Fp1pureneg     Fp1pureneut    Fp2mixedneg    Fp2mixedneut   Fp2pureneg     Fp2pureneut    FpZmixedneg    FpZmixedneut   FpZpureneg     FpZpureneut
S1             235.012        212.1          1578.22        4878.2         125.65         548.215        15.25          512.448        548.233        1548.2         1654.2         545.88
S2             5465           545            587            874            87465          7498           8798           8730.39        46984          5136           6516           879
$
$
$

$
$
$ perl -ane 'BEGIN {$fmt = "%-20s"}
            if ($. == 1) {
              $sub = $F[0];
              @items = @F[2..$#F];
            } elsif ( grep { $F[0] eq $x[$_][0] } 0..$#x ) {
              push @{$x[$#x]}, [ $F[1], [ @F[2..$#F] ] ] ;
            } else {
              push @x, [ $F[0], [ $F[1], [ @F[2..$#F] ] ] ];
            }
            END {
              printf ($fmt, $sub);
              foreach $itm (@items) {
                foreach $i ( 1.. $#{$x[0]} ) {
                  printf ($fmt, "$itm$x[0][$i][0]");
                }
              }
              print "\n";
              foreach $i ( 0..$#x ) {
                printf ($fmt, $x[$i][0]);
                foreach $k ( 0.. $#{$x[0][1][1]} ) {
                  foreach $j ( 1..$#{$x[$i]} ) {
                    printf ($fmt, $x[$i][$j][1][$k]);
                  }
                }
                print "\n";
              }
            }
           ' input
Subject             Fp1mixedneg         Fp1mixedneut        Fp1pureneg          Fp1pureneut         Fp2mixedneg         Fp2mixedneut        Fp2pureneg          Fp2pureneut         FpZmixedneg         FpZmixedneut        FpZpureneg          FpZpureneut
S1                  235.012             212.1               1578.22             4878.2              125.65              548.215             15.25               512.448             548.233             1548.2              1654.2              545.88
S2                  5465                545                 587                 874                 87465               7498                8798                8730.39             46984               5136                6516                879
$
$