print "There " . ($count == 1 ? " is " : " are " ) . " $count piece" . ($count == 1 ? "s" : "" ) . " of pizza left.\n";

Is this possible?

I got to ask. Given that you already have a line of code, what makes you think it's easier to ask on Perlmonks whether than line of code works, than to run it?