#! perl -sw
use strict;

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

my $ibuf = '';
while( sysread( *STDIN, $ibuf, $B, length $ibuf ) ) {
    my $p = 1+rindex( $ibuf, "\n" );
    my $rem = substr( $ibuf, $p );
    substr( $ibuf, $p ) = '';
    open my $RAM, '<', \$ibuf;
    print while <$RAM>;
    $ibuf = $rem;
}

##</code><code>##

#! 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.