while ($continue eq 'Y')

##</code><code>##

$continue = <>;