#!/usr/bin/perl

### dehyphenate.pl
### taken from camel book 4, p298
### Mafuyu Kitahara
### 2004-11-08

die "Usage: dehyphenate.pl [input] \n" unless @ARGV;

open (IN, "$ARGV[0]");
open (OUT, ">$ARGV[0]-deh");
while (<IN>){
    s/-\s*\n$//;
    print;
    print OUT;
}