in reply to one-line conditional print?

print "There ", $count == 1 ? " is 1 piece" : " are $count pieces", " +of pizza left.\n";