($newValue) = $oldValue =~ /_(\d+)\./ or warn "bad format: '$oldValue'";