$string = "# Number Of Points: 10000.0000";
$string =~ s/(?<=^# Number Of Points: )(\d+(?:\.\d+)?)$/$1-200/e;
print $string, "\n";