use strict;
use warnings;

my ($argact, $handle, $num);

($argact) = $ARGV[0] =~ /(\d+)/;
exit if !$argact;

open $handle, 'one.txt';
$_ = join '', <$handle>;
close $handle;

($num) = m/(\d+)$/;

if ($num != $argact) {
    s/(\d+)$/$argact/;

    open $handle, '>one.txt';
    print $handle $_;
    close $handle;
}