#!/usr/bin/perl

use strict;

if ($ARGV[0] eq undef) {
 print "stripline (GNU GPL)\nSept 15, 2001 Jerry D. Fowler jerry\@digi
+lliance.net\n";
 print "Usage: stripline in.file out.file\n\n";
 exit;
}

chdir($ENV{PWD}) or die "Could not change to your current directory\n"
+;
open (FILE, "$ARGV[0]") or die "Could not create Outfile";
open (OUT, ">$ARGV[1]") or die "Could not create Outfile\n";
while (<FILE>) {
$_ =~ s/\cM//g;
chomp;
print OUT "$_\n";
}
close FILE;
close OUT;