print (<COUNTTHIS>);
$thenumber = $_;

# or, alternatively, like this :
$thenumber = <COUNTTHIS>;
print $thenumber;