sub addind {

open(MYINPUTFILE, "townsdata.txt"); # OPEN FOR INPUT
$| = 1;
my @lines = <MYINPUTFILE>;          # READ FILE INTO LIST

print "INDUSTRY TOWN\n";

my $indtwn = <STDIN>;
$indtwn = <STDIN> until defined $indtwn;
chomp $indtwn;
cls();

my $found = 0;

foreach my $townverify (@lines) {
my @field = split(':',$townverify);
if ($field[0] =~ m/^#/) {
next;
}
if ($field[1] =~ /(?<![\w-])$indtwn(?![\w-])/i) {
cls();
$found = 1;
} else {
cls();
print "TOWN RECORD NOT FOUND\n";
sleep 3;
cls();
addind();
} # END FOREACH FILE LOOP

my $output="inddata.txt";
open(DAT,"+<$output") || die("Cannot Open File");

my $indline;
$indline = <DAT> until eof DAT;
my ($indid) = $indline =~ m/\A(\d+):/;

print DAT (++$indid);
print DAT (":");
print DAT ($indtwn);
print DAT ("\n");

close (DAT);

print "INDUSTRY SUCCESSFULLY ADDED!!\n";

sleep 3;
cls();
industry();
}