Help for this page
if ($fi eq "\n") { ... { # some other code here }
if ($fi eq "\n") { exit; } # some other code here