#!/usr/bin/perl

use strict;
use warnings;

my $std = <STDIN>;
my $arg = $ARGV[0];
die "$0 \[file\]" unless ($arg && $std);      # Si lo sabes usar lo usas y si no, te cuento un chiste

my $file = $ARGV[0];
my ($ok, @c);

# imprime a STDOUT: ahí te apañes

local $/='';
open my $IN, '<', $file or die "Cannot open: $!";
my @filecontent = <$IN>;
close $IN;

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

exit 2;

__END__