while (my @parsed = &parseInput) {
    &dispatch(@parsed);
}

sub parseInput {
    ...
    my @parsed = split $inp;
    return 0 if $parsed[0] eq `q`;
    ...
}