#!/usr/bin/perl
#---------#---------#---------#---------#---------#---------#---------#---------
# title
#   stupid chevron stripping program
# description
#
# author
#   larg 06/02/01
# modifications
#
#---------#---------#---------#---------#---------#---------#---------#---------
#
$File = $ARGV[0];
#print "\nStripping ${File}... \n";

open ( IN, "<$File" ) or die "Cannot open $File";

while ( <IN> ) {
    s/^[\s|>]*$/\n/ ;       # remove leading chevrons and spaces when line is blank
    s/^[\s|>]*(.+)$/$1/ ;   # remove leading chevrons and spaces on non-blank line
   s/>//g ;                # remove inline chevrons on the cleaned up line
    print;
};