while ( (print "$prompt: "), $number = <STDIN> )
{...}