my $foo = do {
    local $_ = $value;
    /aaa/ ? 'wanna' :
    /bbb/ ? 'be'    :
    /ccc/ ? 'startin' : 'somethin'
};