Select Code to Download

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

my $lower = lc $str;