if (length($str) >= 4) {
    # ...
}

##</code><code>##

my $lower = lc $str;