if( length $tmp_line < 4000 ){
  $tmp_line .= "\t" x 30;
}
else ...