#!/usr/bin/perl
use warnings;
use strict;

use IO::All;
use File::Spec::Functions qw(catfile);

my $Base = "/Users/brian/Dev";

@ARGV = catfile( $Base, 'bad_cvs_root_no_really.txt' );

while( <> )
	{
	chomp;
	my $file = catfile( $Base, $_ );
	my $contents < io( $file );
	
	"$_^^^$contents" >> io( "cvs-root-originals.txt" );
	
	$contents =~ s{comdog\@cvs\.(.*\.)sourceforge}
	              {comdog\@cvs\.sourceforge}i;

	# 	$contents > io( $file );
	print "$contents", "-" x 73, "\n";
	}