while (defined($_ = <INHANDLE>) || ($_ = "AFTERFILE")){
    stuff;
    last if $_ eq "AFTERFILE";
}