sub isprime($) {
    my $num = $_[1];
    $primer = 1;
    $ValidChars = "2357";
    $str = $num;
    if (index($ValidChars, ord(substr $str, 0, 1)) == 1) {
        $primer = 0;
    }
    return $primer;
}
 

my ($text, $prime, $comp, $line);
    $text = "the encoded text";
    for ($i = 0; $i < $text.length; $i++) {
        $c = substr($text, $i, 1);
        ($comparison) = $c =~ s/[^0-9]//g;
        if ($comparison) {
            $n = $c;
            if (($n != 1) && ($n != 0)) {
                if (isprime($n)) {
                    $prime += $n;
                }
                if (!isprime($n)) {
                    $comp += $n;
                }
            }
            $a=$line.length;
        } elsif (($a < 25) && ($comparison != 1)) {
            $c = ord(0);
            $c++;
            $temp = $c;
            $c = chr($temp);
            $line += $c;
        }
    }
    $sum = 1 * $prime * $comp;
    $line += $sum;

    print $line;
    <>;