Colony

#!/usr/bin/perl -W

my $line;

my $line2;

$line = `pwd`;

if($line =~ /linefollowing/igs) {

	print "Cannot modify linefollow code from linefollow\n";

} else {

	`rm lineFollow.*`;

	`rm lineDrive.*`;

	`cp ../linefollowing/lineFollow.* .`;

	`cp ../linefollowing/lineDrive.* .`;

}

if($line =~ /traffic_navigation/igs) {

	while(</*>) {

		if(/(.*?test)\.c/) {

			`mv $1.c $1.bak`;

		}

	}

}