Select Code to Download

$_ = "-r-x-w-rwx"; # Mode string in $_
my $bits = 0;
...
    $_ ne "-" and $bits++;
}
printf "My bits are: %o\n", $bits;