#!/usr/bin/perl
# stripcomments.pl - Don Yang (uguu.org)
#
# Remove non-BF characters from stream.
#
# 09/03/04


use strict;
local (*INFILE);
local (*OUTFILE);


open INFILE, (($#ARGV > -1) ? "< $ARGV[0]" : "<&STDIN") or die $!;
open OUTFILE, (($#ARGV > 0) ? "> $ARGV[1]" : ">&STDOUT") or die $!;

while(<INFILE>)
{
   s/[^\[\]\-+<>,.]//g;
   print OUTFILE;
}
print OUTFILE "\n";

close INFILE;
close OUTFILE;