if ($price !~ /\./) { 
   $price .= ".00"; 
} else { 
   $price =~ s/(\d*?\.\d\d).*/$1/; 
}