#!/usr/bin/perl -w

die "$0 <filename>" unless (-e $ARGV[0]);

local $/='';

open IN, '<', $ARGV[0] or die "Cannot open: $!";
@file = <IN>;
close IN;

# @file = split "", $file;
$ok=1;
for $l (@file){
    next unless defined $l;
    @c = split //, $l;
    for $i (@c){
	if ($i eq "<") { $ok=0; }
	elsif ($i eq ">") { $ok=1; print ""; }
    
	if ($ok==1 && $i ne ">") {
	    print $i;
	}
    }
#    print "\n";
}
print "\n";

__END__