in reply to Round off Time to nearest second

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

[download]

In Section Seekers of Perl Wisdom