while( $sz > 32760 ) {
   $m =~ /(^.{32760})/g;
   print $FH $1;
   $sz -= 32760;
}
$m =~ /(^.{$sz})/g;
print $FH $1;