$oldValue =~ /_(\d+)\./; $newValue = $1;