s/(.\....)\z/ sprintf "%.0f", $1 /es;