$price =~ s/\054//;