while (do {print "...."; defined (my $input = <>)}) {
    if    (...) {...; last}
    elsif (...) {...; last}
    elsif (...) {...; last}
}