sub f {
    length or $_ = "default value" for
        my $var = shift;
    do_something_with($var);
}

##</code><code>##

sub f {
    my $var = shift;
    for ( $var ) {
        last if length;
        $_ = $DEFAULT;
    }
    ...
}