Help for this page
until(!defined($_ = <STDIN>) and /exit|quit|(^\s*$)/i) { }
while(<STDIN>){ last if /exit|quit|(^\s*$)/i; }