while (<>) {
    my ($prefix, $tail) = /(\S+) (.*)/;
    
    print "\n" if $currPrefix && $currPrefix ne $prefix;
    print "$prefix $tail";
    $currPrefix = $prefix;
}