#!/usr/bin/perl
use strict;
use warnings;

my $currPrefix;

$^I = '.bak';

while (<>) {
    my ($prefix, $tail) = /(\S+) (.*)/;

    print "\n" if $currPrefix && $currPrefix ne $prefix;
    print "$prefix $tail";
    $currPrefix = $prefix;
}