#!/usr/local/bin/perl

while(<>)
{
    # Strip out all angled bracket pairs
    while (/<[^<>]*>/)
    {
	s/<[^<>]*>//g;
    }
    print;
}