#!/usr/local/bin/perl -w
use strict;
my($newline);
my($file) = "d:\\softdev\\Pserver.txt";
my(@lines);
my($lines);
my($line1);
my($line2);

open (DAT, "+>>$file") or die "$!";
@lines = <DAT>;
$line1 = $lines[-1];
$line2 = $lines[-2];

if ($lines[-1] =~ /(\d)/){
	$newline = ($1 + 1);
	print "$newline\n";
	$line1 =~s/(\d)/$newline/;
	print "$line1\n";
	print DAT "$line1";}

close DAT;