使用句号分割Perl字符串，并将元素用作变量

在Perl中，可以使用split函数将字符串按照指定的分隔符进行分割，并将分割后的元素存储到一个数组中。然后，可以将数组中的元素赋值给变量。

下面是一个示例代码：

my $str = "Hello.World.Perl";
my @elements = split(/\./, $str);

# 将数组中的元素赋值给变量
my ($var1, $var2, $var3) = @elements;

print "var1: $var1\n";
print "var2: $var2\n";
print "var3: $var3\n";

输出结果为：

var1: Hello
var2: World
var3: Perl

在上面的代码中，我们使用split函数将字符串$str按照"."进行分割，并将分割后的元素存储到数组@elements中。然后，我们将数组中的元素赋值给变量$var1、$var2和$var3。最后，通过打印这些变量的值，我们可以看到字符串被成功分割，并且元素被赋值给了相应的变量。

在Perl中，split函数的第一个参数是用于指定分割符的正则表达式。在上面的示例中，我们使用了/./作为分割符，表示按照"."进行分割。需要注意的是，正则表达式中的"."需要使用反斜杠进行转义。

关于Perl的split函数和正则表达式的更多详细信息，可以参考腾讯云的Perl开发文档：Perl开发文档。