for ($var) {
    ... when clauses ...
    if (s{^cpan://}{http://search.cpan.org/search?query=}p) {
       ...
       last;
    }
    ... more when clauses ...
}