5.10以降でgivenが実装され現在はこちらが推奨されている。¹⁾

2016.03.01 Perl 5.18 で given、whenはexperimentalに差し戻されています

# 文字列
given ($val) {
    when ('abc') {
        say "ABC";
    }
    when ('def') {
        say "DEF";
    }
    when ('ghi') {
        say "GHI";
    }
    default {
        say "none";
    }
}
 
# 正規表現
given ($val) {
    when (/^abc$/) {
        say "AAA";
    }
    when (/^def$/) {
        say "DDD";
    }
    when (/^ghi$/) {
        say "GGG";
    }
    default {
        say "None";
    }
}