$price =~ s/(\.\d\d[1-9]?)\d*/$1/; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl