Just replace exit with last and it should work the way you want it to, ie: if ($in =~ /exit/i){ last }