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

##</code><code>##

LOOP: {
    $_ = <>;
    stuff;
    redo LOOP if defined;
}