##
sub isprime {$_[0] =~ /^[2357]$/}
##
##
if (($n != 1) && ($n != 0)) {
if (isprime($n)) {
$prime += $n;
}
if (!isprime($n)) {
$comp += $n;
}
}
##
##
if ($n =~ /^[2357]$/) {
$prime += $n;
}
elsif ($n !~ /^[01]$/) {
$comp += $n;
}
##
##
$text.length