#!/usr/bin/perl

opendir DIR, "." or die "problems opening dir: $1";
@files = grep /^db\./, readdir DIR;
closedir DIR;

foreach $file (@files) {
open(FILE, "$file") or die "File read failed: $!\n";
@file = <FILE>;
close(@file);
open(FILE, ">$file") or die "File write failed: $!\n"; ;
foreach $line (@file) {
	if($line =~ /serial/i && $line =~ /(\d+)/) { #if line has digit, followed by a comma, and then the word serial
		$num = $1; $num++;
		$line = "                        " . $num . "       ; serial number";
		print FILE "$line\n"; # increment it.
	} else {
		$line =~ s/besllsouth/bellsouth/gi;
		print FILE $line; # print it
	}
}
close(FILE);
print "File $file write successful.\n";
}