#! perl -sw
use strict;

our $B //= 64;
$B *= 1024;

my $obuf;
while( <> ) {
    my @f = split chr(9);
    $obuf .= join( chr(9), @f[2,0,5] ) . "\n";
    if( length( $obuf ) > $B ) {
        print $obuf;
        $obuf = '';
    }
}
print $obuf; ## Corrected C&P error. See [lotus1]'s post below.