#!/usr/bin/perl
$/=""; 
while(<>) { 
        $_ =~ s/([^(]*)\n\(\n/$1  \(\n/; # Move blankline ( to SOA line
        $_ =~ s/\(\n\s*?(\d+)[^\n]*\n\s*?(\d+)[^\n]*\n\s*?(\d+)[^\n]*\n\s*?(\d+)[^\n]*\n\s*?(\d+)[^\n]*\n/\(\n\t\t$1  $2  $3  $4  $5 \)\n/;
        print $_; 
};