$price =~ s/(\.\d\d[1-9]?)\d*/$1/;




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl