#! perl -slw
use strict;
use bytes; 

open IN,  '< :raw', $ARGV[ 0 ] or die "$ARGV[ 0 ] : $!";
open OUT, '> :raw', $ARGV[ 1 ] or die "$ARGV[ 1 ] : $!";

local $/ = \384; ## Read file in 384 byte chunks.

while( <IN> ) {
    printf OUT unpack 'x2 a190 x2 a58', $_;
}

close IN;
close OUT;