#!/usr/bin/perl

use strict;

foreach my $file (@ARGV) {
	open READ, $file or warn "Can't open $file: $!";
	open WRITE, ">$file-boundarized" or warn "Can't open $file-boundarized: $!";
	while (<READ>) {
		if (/^#similarity (\d.\d\d)/ && $1 < .85) {
			print WRITE "#boundary\n";
		} elsif (!/^#similarity/) {
			print WRITE;
		}
	}
}