#! perl -sw
use strict;

local $/ = "\n> <";

m[([^>]+)>\n(.*)]sm and print "$1\n$2\n---------\n" while <STDIN>;