use constant LEN => 320;
use constant DELIM => "\r\n";

my ($len, $offs) = (LEN, 0);
while(read IN, $_, $len, $offs) {
    print OUT $_, "\n";
    read IN, $_, length DELIM;
    ($len, $offs) = $_ eq DELIM ? (LEN, 0) : (LEN - length DELIM, leng
+th DELIM);
}
[download]