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

##</code><code>##

print "$prompt";
$number = <STDIN>;