#!/usr/local/bin/perl -w

local $/='';

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

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

__END__