在perl 、将小于n（n由用户输入确定）的所有个位数不等于5的素数（素数：只能被1和本身整除的整数）在屏幕上打印，具体要求： 1）n的具体值由用户输入来确定，且输入提示"Inputn：”； 2） 分行显示，每行输出6个数。（不使用内置函数）

在Perl中，你可以通过实现埃拉托斯特尼筛法（Sieve of Eratosthenes）来找出小于给定n的所有非5个位素数，并满足分隔输出的要求。这里是一个简单的示例程序：

#!/usr/bin/perl
use strict;
use warnings;

print "Input n: ";
my $n = <STDIN>;
chomp($n); # 去除换行符

# 确保n大于6，因为最小的素数是2
if ($n < 6) {
    print "Please enter a value greater than 5.\n";
    exit;
}

# 定义一个数组用于存储质数
my @primes = (2..$n);

# 创建一个长度为n的布尔数组，初始化所有元素为真
my @is_prime = [1] x ($n / 2);
for my $i (0 .. int(sqrt $n)) {
    # 如果is_prime[$i]仍然为真，则它是一个素数
    if (@primes && $is_prime[$i]) {
        for my $j ($i * 2 + 2; $j <= $n; $j += $i) {
            $is_prime[$j / 2] = 0; # 标记不是素数
        }
    }
}

# 打印结果，每行6个数
for my $i (0 .. $#primes - 6) {
    print "@primes[$i+0..$i+5]\n"; # 输出6个连续的素数
}

在这个脚本中，我们首先获取用户输入n，然后用埃拉托斯特尼筛选法找到小于n的所有素数。接着，我们按照每行输出6个数的规则，遍历并打印符合条件的素数。