if (defined($_ = <>)) {
    chomp;
    print;

    while (<>) {
        print "\n" if /^</;
        chomp;
        print;
    }

    print "\n";
}